1) 9 дней т.к число листьев каждый день удваивается.
2) 1024 листа т.к 2 в 10 степени = 1024
Поворот направо, шаг, поворот налево, поворот налево, шаг, поворот направо (1 линия)
Прыжок, поворот направо, шаг, шаг, поворот налево, поворот налево, шаг, шаг, поворот направо (2 линия)
Прыжок, поворот направо, шаг, шаг, шаг, поворот налево, поворот налево, шаг, шаг, шаг, поворот направо (3 линия)
Прыжок, поворот направо, шаг, шаг, шаг, поворот налево, поворот налево, шаг, шаг, шаг, поворот направо (4 линия)
Прыжок, поворот направо, шаг, шаг, поворот налево, поворот налево, шаг, шаг, поворот направо (5 линия)
Прыжок, поворот направо, шаг, поворот налево, поворот налево, шаг, поворот направо (6 линия)
PORT TTTO TTOO OOPO PTON ONNO
Начинаем вычеркивать цепочки, которые не удовлетворяют требованиям.
1. В конце цепочки P, N, T, O - для всех правда.
PORT TTTO TTOO OOPO PTON ONNO
2. На первом месте P, R, T, O - для всех правда.
PORT TTTO TTOO OOPO PTON ONNO
3. На первом и третьем местах разные буквы - не подходит TTTO.
PORT TTOO OOPO PTON ONNO
4. На третьем месте O, P, T - не подходят PORT, ONNO.
TTOO OOPO PTON
5. Третья и четвертая бусины разные - не подходит TTOO.
OOPO PTON
Ответ. 4, 5.
//PascalABC.NET v3.3 1633
type
Computer = record
cType: string;
yearOfPurchase: integer;
price: integer;
end;
const m = 10;
var computers: array [1..m] of Computer;
types: array of string:=('суперкомпьютер', 'мэйнфрейм', 'сервер', 'ПК');
begin
for var i:=1 to m do
with computers[i] do
begin
cType:=types[random(0,3)];
yearOfPurchase:=random(1992, 2003);
price:=random(15000,120000);
end;
writeln('Тип ЭВМ / Год покупки / Цена');
for var i:=1 to m do
with computers[i] do
begin
writeln(cType+' '+yearOfPurchase+' '+price);
end;
writeln();
var C:=ReadInteger('Введите C: ');
var sum:=0;
var N:=ReadInteger('Введите N: ');
writeln('На печать:');
for var i:=1 to m do
with computers[i] do
begin
if yearOfPurchase = n then sum += price;
if (yearOfPurchase > 1997) and (price > C) then
writeln(' '+cType+' '+yearOfPurchase+' '+price);
end;
writeln('Суммарная стоимость ЭВМ,приобретенных в '+n+' году: '+sum);
end.