// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var k:= ReadInteger('k =');
var (a,b) :=(1,1);
for var i := 3 to k do
(a,b):= (b,a+b);
Writeln('a) ', b);
(a,b) :=(1,1);
var sum:= 2;
var n:= ReadInteger('n =');
Write('б) 1, 1');
for var i:= 3 to n do
begin
(a,b):= (b,a+b);
Write(', ', b);
sum+= b;
end;
Writeln;
Writeln('в) ', sum.IsEven?'YES':'NO');
end.
Робот дважды пересек одну клетку + проехал по клетке, на которой стоял изначально.
Ответ зависит от того, как интерпретировать слово "посетил".
Если смысл "когда-либо находился", то 2
Если "пересекал", то 1
Потому-что оставшаяся память резервируются под программы для более быстрого запуска
Для расшифровки слова нужно таблицу с зелеными ячейками наложить на таблицу с буквами, выписывать "зеленые" буквы, повернуть таблицу на 90 градусов, выписать буквы и т.д.
Результат: благорастворение (чистота, свежесть, благоуханность воздуха).