Помогите пожалуйста: написать программу нахождения наибольшего среди четырёх заданных чисел В ПАСКАЛЕ:)
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
2 года назад
8 лет назад
10 лет назад
10 лет назад