Ответы
Ответ дал:
1
var n,i:integer;
begin
write('n = '); readln(n);
i:=1;
while i*i*i<=n do
begin
writeln(i,' ',i*i*i);
i:=i+1;
end;
end.
Пример:
n = 200
1 1
2 8
3 27
4 64
5 125
begin
write('n = '); readln(n);
i:=1;
while i*i*i<=n do
begin
writeln(i,' ',i*i*i);
i:=i+1;
end;
end.
Пример:
n = 200
1 1
2 8
3 27
4 64
5 125
Вас заинтересует
5 месяцев назад
5 месяцев назад
5 лет назад
5 лет назад