Паскаль Составить программу для проверки, можно ли заданное натуральное число N представить в виде куба простого числа.
Паскаль
Составить программу для проверки, можно ли заданное натуральное число N представить в виде куба простого числа.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы