задачка на лампочки, имеющих два состояния Опции

[metallic]

Имеется n>= ламп. расположенных в ряд, каждая из которых может быть в одном или двух состояний -"вкл" или "выкл". Каждую секунду лампы одновременно меняют своё состояние по правилам если лампа и ее соседи (для первой и последней лампы - один сосед, для остальных - два) находятся в одинаковом состоянии, то она принимает состояние "выкл", иначе она принимает состояние "вкл''. В начальном положении все лампы находятся в состоянии "выкл", кроме самой левой лампы, имеющей состояние ''вкл'' . Экспериментально найдите ( не менее 5), для каких n все все лампы будут в состоянии '' выкл''.

Сообщение отредактировано: metallic - 23.11.2008 13:05

[metallic]

Я решил ее , вот только не знаю правильно ли:

Program A1;
var i,k,n:integer;
BEGIN
  writeln ('vvedite koli4estvo eksperimentov');
readln(k);
k:=k+1;
n:=0;
for i:=2 to k do 
 begin
   if i mod 3=0 then 
      begin 
        n:=1;
           writeln ('pri n=',n,' vse lampo4ki pogasnyt');
       end;
  end;
      writeln ('pri n=2 vse lampo4ki pogasnyt');
readln;
END.

Сообщение отредактировано: metallic - 23.11.2008 15:27

[Lapp]

Я решил ее , вот только не знаю правильно ли:

Что-то я совсем не врубаюсь.. Поясни, при чем тут остаток по модулю 3?