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

Question

Информатика

Дьюд

18 ноября, 18:15

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

+5

Ответы (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.