Вводится последовательность из 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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад