Question

!!!!!!Написать программу, которая выводит те натуральные числа, куб которых не превышает n (запрашивается с клавиатуры). ТАБЛИЦА ВХОДНЫХ И ВЫХОДНЫХ ДАННЫХ ОБЯЗАТЕЛЬНА

Answer 1

var

i,n : integer;

begin

readln(n);

i:= 1;

while i <= n do

begin

if (i*i*i) < n then

write(i,' ');

i:= i + 1;

end;

end.