Question

паскаль
Составить программу для проверки, можно ли заданное натуральное число N представить в виде куба простого числа.

Answer 1

var n,k,m:integer;
begin
readln(n);
for k:=1 to n do
begin
m:=k*k*k;
if m=n  then 
begin
writeln(k,'*',k,'*',k,'=',n);
exit;
end;
end;
if (m<>n) then 
writeln('Het');
end.