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

Pascal

Question

Ена

8 декабря, 20:13

+4

Ответы (1)

Знаете ответ на вопрос?

Савва · Answer 1

Var

i, n:integer;

begin

readln (n) ;

for i:=1 to n do

if i*i*i<=n then

writeln (i) ;

end.

Дано число n вывести на экран все числа, кубы которых не превышает nPascal