Напишите програму поиска максимального из двух чисел
Напишите програму поиска максимального из двух чисел
Гость
Ответ(ы) на вопрос:
Гость Program ufhg; uses crt; var a,b,c,d, m: integer; begin readln(a,b,c,d); m:=a; if(b>m) then m:=b; if(c>m) then m:=c; if(d>m) then m:=d; writeln(m); end.
Не нашли ответ?
Похожие вопросы