Предмет: Информатика,
автор: vadimpolovohin12
Дана непустая последовательность натуральных чисел, за которой следует 0. Вывести на экран все простые числа данной последовательности (простым называется число, которое имеет только 2 делителя-1 и само себя). ПРОШУ ПОМОЧЬ ОЧ СРОЧНО!!!! ЗАРАНЕЕ СПАСИБО!!!
raf1O5:
Разрешается использовать тип String ?
Ответы
Автор ответа:
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
Похожие вопросы
Предмет: История,
автор: vitvickaanna15
Предмет: Биология,
автор: filatovaveronika12
Предмет: Русский язык,
автор: stanislava79
Предмет: Химия,
автор: mmm999ru
Предмет: Алгебра,
автор: llina2