паскаль

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

Question

Информатика

Феофания

20 сентября, 02:52

паскаль

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

+2

Ответы (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 представить в виде куба простого числа.