паскаль
Составить программу для проверки, можно ли заданное натуральное число N представить в виде куба простого числа.
Ответы на вопрос
Ответил iowisp3
0
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.
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.
Новые вопросы