Запишите на естественном языке алгоритм, выполняющий поиск количества простых чисел в заданном целочисленном массиве из 50 элементов. Pascal
Запишите на естественном языке алгоритм, выполняющий поиск количества простых чисел в заданном целочисленном массиве из 50 элементов.
Pascal
Гость
Ответ(ы) на вопрос:
Гостьconst N=50;
var a : array [1..N] of boolean;
x,y, sim : integer;
begin
sim:=0;
a[1] := false;
for x:=2 to N do a[x] := true;
for x:= 2 to N div 2 do
for y:= 2 to N div x do
a[x*y] := false;
for x:=1 to N do
if a[x] then sim:=sim+1;
writeln(sim);
end.
Не нашли ответ?
Похожие вопросы