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