
Дана непустая последовательность натуральных чисел, за которой следует 0. Вывести на экран все
простые числа данной последовательности (простым называется число, которое имеет только 2 делителя-1 и само себя). ПРОШУ ПОМОЧЬ ОЧ СРОЧНО!!!! ЗАРАНЕЕ СПАСИБО!!!

Ответы на вопрос

program raf105;
var
a: array[1..100] of integer;
i,n,c: integer;
x: boolean;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
x:= True;
readln(n);
for i:=2 to n-1 do
if (n mod i = 0) and (n <> 0)
then x:= False;
if x and (n <> 0)
then begin
c:= c+1;
a[c]:= n;
end;
until n = 0;
write('Простые числа: ');
for i:=1 to c do
write(a[i],' ');
end.
PascalABC 3.4.2



Для решения этой задачи вам понадобится написать программу на языке программирования. Я предположу, что вы хотите использовать Python. Вам нужно будет считывать числа из последовательности и проверять, являются ли они простыми числами. Для этого можно написать функцию, которая будет проверять каждое число на простоту. Вот пример кода на Python:
pythondef is_prime(num):
if num < 2:
return False
for i in range(2, int(num ** 0.5) + 1):
if num % i == 0:
return False
return True
def find_primes_in_sequence(sequence):
primes = []
for num in sequence:
if num == 0:
break
if is_prime(num):
primes.append(num)
return primes
# Вводите числа последовательности через пробел, заканчивая нулем.
sequence = list(map(int, input("Введите числа последовательности через пробел, заканчивая нулем: ").split()))
primes_in_sequence = find_primes_in_sequence(sequence)
if primes_in_sequence:
print("Простые числа в данной последовательности:", primes_in_sequence)
else:
print("В данной последовательности нет простых чисел.")
Скопируйте код выше в среду программирования Python и запустите его. Он попросит вас ввести числа последовательности через пробел и завершить последовательность нулем. Затем программа выведет на экран все простые числа из данной последовательности.


Похожие вопросы
Топ вопросов за вчера в категории Информатика









Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili