Написать функцию, которая сравнивает два целых числа и отдаёт итог сопоставленья

Написать функцию, которая сравнивает два целых числа и отдаёт итог сопоставления в виде знака: gt;, lt; либо = Pascal ABC

Задать свой вопрос
1 ответ
Function Compare(a,b:integer):char;
begin
  if alt;b then Compare:='lt;'
  else if a=b then Compare:='='
  else Compare:='gt;'
end;

var
  x,y:integer;
begin
  Write('Введите два числа через пробел: ');
  Readln(x,y);
  Writeln(x,Compare(x,y),y)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт