- 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;
Помогите, пожалуйста 
![[Антон Даниелян] Акула Маркетингового Бизнеса 1.0 (2018)](/assets/images/icons/forum4.png){kind=icon}
