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