Предмет: Информатика,
автор: kolyankozlov2
Помогите пожалуйста ,срочно , номер 30 !
Приложения:

Ответы
Автор ответа:
0
var
n, k: integer;
a, b, i: integer;
begin
read(n);
k := 0;
read(a);
for i := 2 to n do
begin
read(b);
if (a = 2) and (b = 2) then
k := k + 1;
a := b
end;
writeln(k)
end.
n, k: integer;
a, b, i: integer;
begin
read(n);
k := 0;
read(a);
for i := 2 to n do
begin
read(b);
if (a = 2) and (b = 2) then
k := k + 1;
a := b
end;
writeln(k)
end.
Похожие вопросы
Предмет: Математика,
автор: werter234werty
Предмет: Информатика,
автор: ffhggvccx
Предмет: Математика,
автор: antonmersin59
Предмет: Математика,
автор: tatiina1