Определить, какое количество чисел в последовательности меньше своего последующего соседа - Turbo Pascal
Формулировка задачи:
Добрый день! Никак не получается разобраться с задачей, за помощь буду очень признателен.
Условие задачи:
Вводиться последовательность ненулевых чисел, завершаемая нулем. Определить, какое количество чисел в ней меньше своего последующего соседа.
Спасибо!
Решение задачи: «Определить, какое количество чисел в последовательности меньше своего последующего соседа»
textual
Листинг программы
uses crt; var a,b,k:integer; begin clrscr; repeat writeln('Введите 2 целых числа, не равных 0'); readln(a,b); until(a<>0)and(b<>0); if a<b then k:=1 else k:=0; writeln('Вводите целые числа, окончание ввода 0'); repeat a:=b; readln(b); if a<b then inc(k); until b=0; write('Количество чисел меньше следующего за ним=',k); readln end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д