:написать программу нахождения наибольшего среди - вопрос №99876 от Аоаоаоа13362727182 06.10.2020 21:30

Question

Информатика: :написать программу нахождения наибольшего среди четырёх заданных чиселв паскале: )

Аоаоаоа13362727182 · Answer

var x1,x2,x3,x4:integer;

function max(a,b:integer):integer

begin

if a>b then max:= a

else max:=b;

end;

Begin

read(x1,x2,x3,x4);

x1:=max(x1,x2);

x2:=max(x3,x4);

x1:=max(x1,x2);

writeln(x1);

End.