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