• Вводится последовательность из N целых чисел. Является ли последовательность убывающей? Выполните задачу на Pascal без использования массивов.

Ответы 6

  • 12Поседовательность убывающая
  • ну в 1 примере вашем все понятно, это верно (2 1 0 - убывающая)
    • Автор:

      rosyburch
    • 5 лет назад
    • 0
  • а второй пример - это не последовательность
  • там всего 1 число
    • Автор:

      sassysmeb
    • 5 лет назад
    • 0
  • Извиняюсь, затупил.
    • Автор:

      tiprevkl
    • 5 лет назад
    • 0
  • Program n_1;

    var a, b, i, n: integer; c: boolean;

    begin

       c:=true;

       read(n, a);

       for i:=2 to n do begin

           read(b);

           if b>=a then c:=false;

           a:=b;

       end;

       if (c=true) then writeln('Поседовательность убывающая')

       else writeln('Поседовательность не является убывающей');

    end.

    Это для строго убывающей последовательности. Если требуется для невозрастающей - замени if b>=a then c:=false; на b>a then c:=false;

    • Автор:

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

Войти через Google

или

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

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

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