Введите наибольшее из данных чисел (программа должна вывести ровно одно целое число). Free Pascal 2.4.4
Ответы
Ответ дал:
0
Function max(a,b : Integer) : Integer;
Begin
If a>=b then Max:=a else Max:=b;
end;
Var x,y : Integer;
Begin
Readln(x,y);
Writeln(Max(x,y));
end.
Begin
If a>=b then Max:=a else Max:=b;
end;
Var x,y : Integer;
Begin
Readln(x,y);
Writeln(Max(x,y));
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад
10 лет назад