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

Question

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

Comments

на паскале?

---

да

---

сек

---

что такое простое число?

---

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

---

с процедурой можешь ?

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.