Паскаль Дано n – натуральное число. Вывести ** экран все числа, кубы которых не превышает...

Question

Паскаль
Дано n – натуральное число. Вывести на экран все числа, кубы которых не превышает n.

Answer 1

Var n,i:integer;
begin
write('n = '); readln(n);
i:=1;
while i*i*i<=n do<br> begin
 writeln(i,'  ',i*i*i);
 i:=i+1;
 end;
end.

Пример:
n = 200
1  1
2  8
3  27
4  64
5  125