Определить, какое количество чисел в последовательности меньше своего последующего соседа - 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.

Оцени полезность:

10 голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы