Question

Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем, причем М>= 10.

Answer 1

program raf105;

var m,i,j,x,y:integer;

begin

write('Введите число больше 9: ');

readln(m);

writeln;

writeln('Вывод: ');

for i:=m downto 1 do

begin

 if x<3

   then

   begin

   y:=0;

     for j:=2 to i-1 do

       if (i mod j)=0

         then y += 1;

   if y=0

     then

     begin

       x +=1;

       writeln(i);

     end;

    end;

end;

end.

Язык PascalABC

Answer 2

Для решения этой задачи, нам понадобится функция, которая определит, является ли число простым. Затем мы будем проверять числа, начиная с M и уменьшая значение до тех пор, пока не найдем три простых числа.

Вот программа на языке Python, которая решает данную задачу:

pythonCopy code
def is_prime(num):
    """Проверяет, является ли число простым."""
    if num <= 1:
        return False
    for i in range(2, int(num**0.5) + 1):
        if num % i == 0:
            return False
    return True

def find_three_primes_before_M(M):
    """Находит три простых числа, предшествующих числу М."""
    primes_found = 0
    result = []
    current_num = M - 1

    while primes_found < 3 and current_num >= 2:
        if is_prime(current_num):
            result.append(current_num)
            primes_found += 1
        current_num -= 1

    return result

if __name__ == "__main__":
    try:
        M = int(input("Введите число М (M >= 10): "))
        if M >= 10:
            result = find_three_primes_before_M(M)
            if len(result) == 3:
                print(f"Три простых числа, предшествующих числу {M}: {result}")
            else:
                print("Недостаточно простых чисел перед числом М.")
        else:
            print("Число М должно быть больше или равно 10.")
    except ValueError:
        print("Ошибка: введите корректное число.")

С помощью этой программы пользователь может ввести число M, и программа найдет три простых числа, предшествующих числу М. Если М меньше 10, программа сообщит об ошибке и запросит ввести корректное число.