• Даны два числа. Вывести порядковый номер меньшего из них

Ответы 2

  • var  a,b: integer;begin writeln('Введите последовательно два числа'); readln(a); readln(b); if a<b then  writeln('меньшее число под номером 1') else  writeln('меньшее число под номером 2');readln; {задержка}end.{Тест}Введите последовательно 2 числа1015Меньшее число под номером 1.
    • Автор:

      kadyn
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018// Внимание! Если программа не работает, обновите версию!begin  var (a,b):=ReadReal2('Введите два числа');  var d:=a-b;  Writeln(d>0 ? 2 : d=0 ? 0 : 1)end.ПримерыВведите два числа 5.7 91Введите два числа 8.5 -6.42Введите два числа 2 2.00000В последнем случае 0 означает, что числа равны и нет номера большего числа.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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