Привет всем! Помогите, пожалуйста, с задачей) Ввести N чисел. Подсчитать количество случаев равенства двух чисел, идущих друг за другом.

Привет всем! Помогите, пожалуйста, с задачей) Ввести N чисел. Подсчитать количество случаев равенства двух чисел, идущих друг за другом.
Гость
Ответ(ы) на вопрос:
Гость
//Pascal ABC.NET Версия 2.2 Сборка 790 var i,k,n,a,b:integer; begin; readln(n); i:=1; repeat if i mod 2<>0 then readln(a) else readln(b); if b=a then inc(k); inc(i); until n+1=i; writeln('Result:',k); end. Пример ввода: 3 1 1 2 Пример вывода: Result:1
Не нашли ответ?
Ответить на вопрос
Похожие вопросы