Исполнитель черепашка перемещается на экране компьютера, оставляя след в виде линии. в каждый конкретный - id270994420210901 от loveinyourhard 01.09.2021 07:51

Question

Информатика: Исполнитель черепашка перемещается на экране компьютера, оставляя след в виде линии. в каждый конкретный момент известно положение исполнителя и направление его движения. у исполнителя существует две команды: вперёд n (где n – целое число), вызывающая передвижение черепашки на n шагов в направлении движения; направо m (где m – целое число), вызывающая изменение направления движения на m градусов по часовой стрелке. запись повтори к [команда 1 команда 2 команда 3] означает, что последовательность

loveinyourhard · Accepted Answer

//PascalABC.NET 3.2 сборка 1318

Var
n,i,j,resi,resj,flag:integer;
begin
flag:=0;
i:=1;
readln(n);
while power(i,3)<n do
begin
j:=1;
while power(j,3)+power(i,3)<=n do
begin
if power(j,3)+power(i,3)=n then
begin
flag:=1;
resi:=i;
resj:=j;
break;
end;
inc(j);
end;
if flag=1 then break;
inc(i);
end;
if flag=1 then writeln(resi,' ',resj,' ',resj,' ',resi) else writeln('impossible');
end.

Пример ввода:
1008 //2^3+10^3
Пример вывода:
2 10 10 2

MOGZ ответил