• Даны два целых числа. Программа должна вывести число 1, если первое число больше второго, число 2, если второе больше первого или число 0, если они равны. Ввод 4,5 Вывод 2

Ответы 2

  • var

      a, b:real;

    begin

      write('a = '); readln(a);

      write('b = '); readln(b);

      if a > b then

        writeln('1')

      else

        if a < b then

          writeln('2')

        else

          writeln('0');

    end.

     

  • var a,b:integer;

    begin

    readln(a,b);

    if (a>b) then writeln('1') else begin

      if (b>a) then writeln('2') else begin

        if (a=b) then writeln('0');

      end;

    end;

    end.

    • Автор:

      fionaxhqc
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years