Question

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

Answer 1

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.