var
i,n : integer;
begin
readln(n);
i:= 1;
while i <= n do
if (i*i*i) < n then
write(i,' ');
i:= i + 1;
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу, которая выводит те натуральные числа, куб которых не превышает n (запрашивается с клавиатуры ТАБЛИЦА ВХОДНЫХ И ВЫХОДНЫХ ДАННЫХ ОБЯЗАТЕЛЬНА
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.