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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.