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