Ответ:
1. Использовать Робот
алг "Любое слово:)"
нач
нц пока справа свободно
закрасить
вправо
кц
вниз
вниз
нц пока слева свободно
закрасить
влево
кц
кон
2. Использовать Робот
алг "Любое слово-словосочетание:)"
нач
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
кон
3) Использовать Робот
алг "Любое словосочетание"
нач
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нч пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
кон
#include<cmath>
#include<iostream>
using namespace std;
int main()
{
int N;
double P = 1;
cout << "N = ", cin >> N;
for(int A = 1; A<=N; A++)
P=P*A;
P = (N>0?pow(P,(double)1/N):0);
cout << "P = "<<P<<"\n";
system("Pause");
return 0;
}
var
i, ans: longint;
begin
i := 10;
ans := 1;
while i < 100 do
begin
if (i mod 13 = 0) and (i mod 2 <> 0) then ans := ans * i;
inc(i);
end;
writeln(ans);
end.
; <span> - точка с запятой , это что я знаю
</span>