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

Question

Информатика

Дарья

10 октября, 02:33

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

+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.