Напишите програму поиска максимального из двух чисел

Question

Информатика

Игорь

14 марта, 04:58

Напишите програму поиска максимального из двух чисел

+5

Ответы (1)

Знаете ответ на вопрос?

Петра · Answer 1

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.