Предмет: Информатика,
автор: aste3456
Срочно !!!Вводится последовательность из N целых положительных элементов. Определить, содержит ли последовательность хотя бы одно простое число. Для определения простого числа создать процедуру.
Ответы
Автор ответа:
0
var i,N,a:integer; [где а-вводимое число]
begin
for i:= 1 to N do
begin
readln (a);
if a (условие на простое число)then writeln ('содержит') else writeln ('не содержит');
end;
end.
begin
for i:= 1 to N do
begin
readln (a);
if a (условие на простое число)then writeln ('содержит') else writeln ('не содержит');
end;
end.
aste3456:
через процедуру
Похожие вопросы
Предмет: Математика,
автор: natashkin183
Предмет: Английский язык,
автор: Аноним
Предмет: Биология,
автор: elsamukhyarovaaa
Предмет: Биология,
автор: Милашка0111
Предмет: Алгебра,
автор: vladrudavydov