Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде знака: >, < или = Pascal ABC

Question

Информатика

Орданна

18 октября, 12:01

Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде знака: >, < или = Pascal ABC

+1

Ответы (1)

Знаете ответ?

Аргиль · Answer 1

Function Compare (a, b:integer) : char;

begin

if a
else if a=b then Compare:='='

else Compare:='>'

end;

var

x, y:integer;

begin

Write ('Введите два числа через пробел: ') ;

Readln (x, y) ;

Writeln (x, Compare (x, y), y)

end.