Как сделать последовательность натуральных чисел в Паскале?

  • Автор темы Artpirat
  • 3K
  • Дата начала
A

Artpirat

создать последрвательность натуральных чисел, заканчивающихся нулем (т.е. размерность массива заранее не известен). Вычислить сумму тех из них, порядковые номера которых простые числа.
кусок проверки простости числа сделал. Не знаю как связать это все
Код:

function IsSimple(n:LongInt):boolean;
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;

Помогите, пожалуйста
 
M

moozooh

Дано натуральне число п. Обчислити добуток перших п співмножників:
а) 1/2*3/4*5/6...
ПОМОГИТЕ ПОЖАЛУЙСТА....оч оч оч сильно надо...
 

Статистика форума

Темы
200.635
Сообщения
380.523
Пользователи
327.875
Новый пользователь
fora777
Сверху Снизу