Ввести N чисел. Подсчитать количество случаев равенства двух чисел, идущих друг за другом. Выполнить нужно на Pascal через оператор Repeat-Until.

Ввести N чисел. Подсчитать количество случаев равенства двух чисел, идущих друг за другом. Выполнить нужно на Pascal через оператор Repeat-Until.
Гость
Ответ(ы) на вопрос:
Гость
var n,a,b,k,i:integer; begin k:=0;i:=1; write('n=');readln(n); write('a=');readln(a); repeat i:=i+1; write('a=');readln(b); if a=b then k:=k+1; a:=b; until i=n; writeln('k = ',k); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы