A
Artpirat
создать последрвательность натуральных чисел, заканчивающихся нулем (т.е. размерность массива заранее не известен). Вычислить сумму тех из них, порядковые номера которых простые числа.
кусок проверки простости числа сделал. Не знаю как связать это все
Код:
function IsSimple(n:LongInt):boolean;
var i, m:word;
begin
m:=trunc(sqrt);
issimple:=true;
for i:=2 to m do
if (n mod i)=0 then
begin
issimple:=false;
break;
end;
end;
Помогите, пожалуйста
кусок проверки простости числа сделал. Не знаю как связать это все
Код:
function IsSimple(n:LongInt):boolean;
var i, m:word;
begin
m:=trunc(sqrt);
issimple:=true;
for i:=2 to m do
if (n mod i)=0 then
begin
issimple:=false;
break;
end;
end;
Помогите, пожалуйста