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

Question

Информатика

Викта

28 сентября, 05:55

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

+1

Ответы (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.