Pascal. Смотреть фотографию во вложении.
// PascalABC.Net
var
a,b:integer;
begin
Write(Введите через пробел два целых числа: ); Read(a,b);
if a>b then Writeln(a,>,b)
else
if a else Writeln(Числа равны)
end.
Тестовое решение:
Введите через пробел два целых числа: 18 -7
18>-7
Оцени ответ
