Вводится последовательность из N целых положительных элементов. Определить, содержит ли последовательность хотя бы одно простое число

Question

Информатика

Мартирий

29 апреля, 21:37

Вводится последовательность из N целых положительных элементов. Определить, содержит ли последовательность хотя бы одно простое число

+4

Ответы (1)

Знаете ответ?

Потап · Answer 1

Var i, N, a:integer; [где а-вводимое число]

begin

for i: = 1 to N do

begin

readln (a) ;

if a (условие на простое число) then writeln ('содержит') else writeln ('не содержит') ;

end;

end.