var
l,x,sum:real;
i:integer;
begin
write ('L = ');
readln(l);
write ('X = ');
readln(x);
i:=1;
sum:=0;
while i<=101 do
begin
sum:=sum+exp((x+i)*ln(l))/i;
i:=i+2;
end;
writeln ('Summa: ',sum);
readln;
end.
в первом случае х идёт от 1-9 а Y от 0 до 8. шагов 9, к концу Y=8
во 2 случае
y 0 8 14 18 20 20
x 10 8 6 4 2 0
шагов 5, к концу Y=20
Если препятствий нет, то
использовать Робот
алг
нач
нц пока справа свободно
вправо
кц
нц пока сверху свободно
вверх
кц
закрасить
нц пока снизу свободно
вниз
закрасить
кц
нц пока слева свободно
влево
закрасить
кц
кон<span>
</span>
N=64
i=6бит
К=128*256=32768
V=32768*6 бит = 196608 бит
186608 бит :8 :1024 =24 килобайта