Program Fib; var a:array [0..100] of integer; i,n:integer; begin a[1]:=1; a[2]:=1; for i:=3 to 100 do begin a[i]:=a[i-1]+a[i-2]; Write('a[',i,'] = ',a[i],' '); end; end.
Вот тут странно выходит приведу свои соображения а там как знаете. Смотрите картинку. Значит имеем последнее положение решётки и в нём "засвечено" три окошка из возможных четырёх. Предполагаемые возможные положения окна закрашены зелёным и жёлтым. Скорей всего жёлтое окно, так как следующие два окна пустых. А вот дальше если укладывать решётку так как в примере получаем три тетрады (4х буквенные последовательности, полученные в одном положении решётки) и последнюю букву "т". "исто", "мерф", "ксес", "т" Ну последняя буква считается на месте. А вот остальная фраза не читабельна. Разве, что переставить 1ю и 2ю тетрады. На картинке поменяются местами 1е и 2е положения. Тогда получим нечто "мерф.исто.ксес.т" (точками я отделил терады ) или слитно "мерфистоксест"
Я так полагаю Мерфи Стокс ест. (Трапезничать изволит :) )
Команда Повтори 3 раз означает, что команды Сместиться на (3, 3) и Сместиться на (1, −2) выполнятся три раза. В результате чего Чертёжник переместится на 3·(3 + 1, 3 − 2) = (12, 3). Выполнив последнюю команду Сместиться на (−6, 9), Чертёжник окажется в точке (6, 12).
Чтобы Чертёжник вернулся в исходную точку, необходимо переместить его на (−6, −12). Учитывая, наличие команды Повтори 3, приходим к выводу, что Команда 1 это команда Сместиться на (−2, −4).
var a:array [0..100] of integer;
i,n:integer;
begin
a[1]:=1;
a[2]:=1;
for i:=3 to 100 do
begin
a[i]:=a[i-1]+a[i-2];
Write('a[',i,'] = ',a[i],' ');
end;
end.