Введите наибольшее из данных чисел (программа должна вывести ровно одно целое число). Free Pascal 2.4.4
Введите наибольшее из данных чисел (программа должна вывести ровно одно целое число). Free Pascal 2.4.4
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы