Question

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

Answer 1

Var
i,n:integer;
begin
readln(n);
for i:=1 to n do
if i*i*i<=n then
writeln(i);
end.

Answer 2

Решение задачи на языке Pascal

Для вывода на экран всех чисел, кубы которых не превышают заданное число n, можно использовать следующий код на языке Pascal:

program CubesNotExceedingN;
var
   n, i: integer;
begin
   write('Enter a number: ');
   readln(n);
   i := 1;
   while i * i * i <= n do
   begin
      writeln(i, ' cubed is ', i * i * i);
      i := i + 1;
   end;
end.

В этом коде мы сначала запрашиваем у пользователя число n, а затем в цикле while проверяем, не превышает ли куб числа i значение n. Если не превышает, то выводим на экран число i и его куб, и увеличиваем i на 1. Процесс продолжается до тех пор, пока куб следующего числа не превысит значение n.

Пример работы программы:

Предположим, пользователь вводит число 100. Тогда программа выведет на экран следующее:

1 cubed is 1
2 cubed is 8
3 cubed is 27
4 cubed is 64

Так как 5 в кубе (125) уже превышает 100, то цикл завершается, и программа выводит только кубы чисел 1, 2, 3 и 4.

Этот код позволяет эффективно решить задачу и вывести на экран все числа, кубы которых не превышают заданное число n.