Задание:
С клавиатуры вводятся производные числа a и b. Вывести на экран большее из них.
Решение:
Var a,b: longint; begin readln (a,b); If a>b then writeln (a) else writeln (b); end.
Знаете другой ответ?
С клавиатуры вводятся производные числа a и b. Вывести на экран большее из них.
Var a,b: longint; begin readln (a,b); If a>b then writeln (a) else writeln (b); end.
Знаете другой ответ?