паскаль

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

Question

Информатика

Устиния

5 июля, 02:23

паскаль

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

+1

Ответы (1)

Знаете ответ на вопрос?

Устина · 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 (mn) then

writeln ('Het') ;

end.

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

паскаль

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