найти большее из 4-ёх чисел pascal ABC NET

Question

Информатика

Анатолька

6 мая, 05:48

найти большее из 4-ёх чисел pascal ABC NET

+1

Ответы (1)

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

Авдокея · Answer 1

Function min2 (var a, b:integer) : integer;

begin

if a>b then

result:=a

else

result:=b;

end;

function min4 (var a, b, c, d:integer) : integer;

begin

if min2 (a, b) >min2 (c, d) then

result:=min2 (a, b)

else

result:=min2 (c, d) ;

end;

var a, b, c, d: integer;

begin

readln (a, b, c, d) ;

writeln (min4 (a, b, c, d)) ;

end.