Задание:
Напишите программу на языке авс паскаль, которая считывает два целых числа а и в и выводит наибольшее из них. Числа-целые от 1 до 100.
Решение:
var a,b: integer; beginreadln (a,b); if (a>b) then writeln (a) elsewriteln (b); end.
Знаете другой ответ?