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

Amina5155 Amina5155    1   19.06.2019 08:30    8

Ответы
kirikdementev kirikdementev  15.07.2020 17:28
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика