- 17, Feb 2010
- #1
создать последрвательность натуральных чисел, заканчивающихся нулем (т.е. размерность массива заранее не известен). Вычислить сумму тех из них, порядковые номера которых простые числа.
кусок проверки простости числа сделал.
Не знаю как связать это все Код: function IsSimple(n:LongInt)
oolean;
var i, m:word;
begin
m:=trunc(sqrt(n));
issimple:=true;
for i:=2 to m do
if (n mod i)=0 then
begin
issimple:=false;
break;
end;
end;
Помогите, пожалуйста
Не знаю как связать это все Код: function IsSimple(n:LongInt)
oolean;
var i, m:word;
begin
m:=trunc(sqrt(n));
issimple:=true;
for i:=2 to m do
if (n mod i)=0 then
begin
issimple:=false;
break;
end;
end;
Помогите, пожалуйста 
![[WP] Brooklyn 2.8.6 Премиум. №1 OnePage Theme 2015](/assets/images/icons/forum1.png){kind=icon}
![[тарасов Евгений] Как Открыть И Развить Свои Сверхспособности [2013]](/assets/images/icons/forum7.png){kind=icon}
