Question

Дано натуральное число N,составить программу,котоая выводит на экран все натуральные числа,квадрат которых не больше чем N

Answer 1

Var
   x, n: integer;
begin
   x := 1;
   readln(n);
   while x*x <= n do
   begin
      writeln(x);
      x := x + 1;
   end;
end.

Answer 2

Я могу помочь вам с вашим запросом на русском языке. Ваш вопрос о том, как написать программу, которая выводит на экран все натуральные числа, квадрат которых не больше, чем N. Я нашел несколько источников в интернете, которые могут быть полезны для вас. Вот один из них:

# Вводим натуральное число N
N = int(input("Введите N: "))

# Создаем пустой список для хранения результатов
result = []

# Перебираем все натуральные числа от 1 до N
for i in range(1, N + 1):
    # Если квадрат числа не больше N, добавляем его в список
    if i ** 2 <= N:
        result.append(i ** 2)

# Выводим список на экран в формате [1, 4, 9, ...]
print(result)

Этот код был адаптирован из [этого ответа](https://ru.stackoverflow.com/questions/1240776/%d0%9f%d0%be%d0%bc%d0%be%d0%b3%d0%b8%d1%82%d0%b5-%d1%81-%d1%80%d0%b5%d1%88%d0%b5%d0%bd%d0%b8%d0%b5%d0%bc) на сайте Stack Overflow на русском. Вы можете посмотреть другие примеры кода и объяснения по [этой ссылке](https://ru.stackoverflow.com/questions/1147989/%d0%97%d0%b0%d0%b4%d0%b0%d1%87%d0%b0-%d0%bd%d0%b0-python-%d0%92%d1%81%d0%b5-%d0%b2%d0%bc%d0%b5%d1%81%d1%82%d0%b5) или [этой ссылке](https://www.cyberforum.ru/python-beginners/thread2626750.html). Надеюсь, это поможет вам решить вашу задачу. Спасибо за использование Bing!