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

25 Янв 2019 в 10:19
225 +1
1
Ответы
1

Var n, i: integer;

Begin

Readln (n);

Repeat

i:=i+1;

if i*i*i<=n then writeln (n);

Until i*i*i>n;

End.

1 Фев 2019 в 11:52
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир