Var a,b,c,min,max,s: integer;begin write('Ведите числo а '); readln(a); min:=a; max:=a; write('Ведите числo b '); readln(b); if b<min then min:=b; if b>max then max:=b; write('Ведите числo c '); readln(c); if c<min then min:=c; if c>max then max:=c; writeln('Минимальное - ',min); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
