Question

Составить программу, печатающую все простые числа, не превосходящие данного числа. Спасибо большое.

Answer 1

//FPC 2.6.4
Program sieve_of_Eratosthenes;
var
n, i, x:integer;
a: array[1..32000] of boolean;
begin
 readln(n);
  for i:=2 to (n+1) div 2 do
  begin
   x:=i*2;
    while x<=n do
    begin
     a[x]:=true;
     x:=x+i;
    end;
    x:=0;
  end;
  for i:=1 to n do if not a[i] then write(i,' ');
 readln;
end.

Answer 2

Программа для печати простых чисел

Простые числа - это числа, которые имеют только два делителя: 1 и само число. Для составления программы, которая будет печатать все простые числа, не превосходящие заданное число, мы можем использовать алгоритм проверки чисел на простоту.

Вот пример программы на языке Python, которая будет выполнять это:

def is_prime(n):
    if n <= 1:
        return False
    for i in range(2, int(n**0.5) + 1):
        if n % i == 0:
            return False
    return True

def print_primes(limit):
    for num in range(2, limit + 1):
        if is_prime(num):
            print(num)

# Пример использования программы
limit = int(input("Введите число: "))
print("Простые числа, не превосходящие", limit, ":")
print_primes(limit)

В этой программе мы определяем две функции. Функция `is_prime(n)` проверяет, является ли число `n` простым. Она проверяет все числа от 2 до квадратного корня из `n` и возвращает `True`, если число простое, и `False` в противном случае.

Функция `print_primes(limit)` печатает все простые числа, не превосходящие заданное число `limit`. Она перебирает все числа от 2 до `limit` и вызывает функцию `is_prime()` для проверки каждого числа. Если число является простым, оно печатается.

Вы можете запустить эту программу, введя число и нажав Enter. Она выведет все простые числа, не превосходящие заданное число.

Примечание: В данном примере использован язык программирования Python, но алгоритм проверки чисел на простоту может быть реализован на других языках программирования.

Надеюсь, эта информация будет полезной! Если у вас возникнут еще вопросы, не стесняйтесь задавать.