Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Ввести 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.