Введите наибольшее из данных чисел (программа должна вывести ровно одно целое число). free pascal 2.4.4

ukjlobfnjh ukjlobfnjh    3   18.07.2019 21:40    1

Ответы
CloudSmile CloudSmile  03.10.2020 07:21
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика