П0 1 0 / {x} 1 0 * 1 0 0 / [x] * С/П
Не особо понял суть задания,но сделал как понял.В любом случае можно подправить
1:
использовать Робот
алг Миссия
нач
вниз
вправо
нц 6 раз
нц 2 раз
закрасить
вниз
кц
вправо
вверх
кц
нц 7 раз
вверх
влево
кц
кон
2:
использовать Робот
алг Миссия
нач
вниз
вправо
нц 3 раз
нц 3 раз
нц 2 раз
закрасить
вниз
кц
вправо
вверх
закрасить
вверх
нц 2 раз
вправо
кц
кц
нц 3 раз
вниз
кц
нц 9 раз
влево
кц
кц
влево
нц 10 раз
вверх
кц
кон
3:
использовать Робот
алг Миссия
нач
нц пока справа свободно
вправо
закрасить
кц
нц пока снизу свободно
вниз
закрасить
кц
нц пока слева свободно
влево
закрасить
кц
нц пока сверху свободно
вверх
закрасить
кц
нц 7 раз
вправо
кц
нц 2 раз
вниз
кц
кон
program ryad;
var
ans : real;
n : integer;
begin
ans:=1;
writeln('Введите n: ');
readln(n);
for var i:=1 to n do
ans := ans*(1-(1/(2*i)));
writeln('Ответ: ', ans, '.');
end.
1)24>10 do
m:=6;
s:=24-6=18;
2)18>10 do
m:=6(не меняется)
s:=18-6=12
3)12>10 do
m:=6(не меняется)
s:=12-6=6
4)6>10(нет)
s:=6+6=12
Ответ:12