Дана последовательность натуральных чисел,вычислить сумму тех из них,порядковые номера которых являются простыми числами

@kenjiman · Регистрация: 24.04.2013

Студворк — интернет-сервис помощи студентам

Нужно написать такую программу.
Дана последовательность натуральных чисел,вычислить сумму тех из них,порядковые номера которых являются простыми числами.
Помогите,пожалуйста,никак не могу додуматься.

@CodeR · 24.04.2013, 10:08

Pascal

Var i,s,a,t,j:integer;
Begin
    writeln('Окончание ввода "0"');
    Repeat
     write('Число: ');
     readln(a);
     inc(i);
     t:=1;
     For j:=2 to i div 2 do
      if i mod j = 0 then t:=0;
     if (t=1)and(i>1) then s:=s+a;
    Until a=0;
    writeln('Сумма = ',s);
    readln;
End.

@kenjiman 0 / 0 / 0 Регистрация: 24.04.2013 Сообщений: 5
		1
	Дана последовательность натуральных чисел,вычислить сумму тех из них,порядковые номера которых являются простыми числами 24.04.2013, 09:06. Показов 2741. Ответов 1 Метки нет (Все метки) Нужно написать такую программу. Дана последовательность натуральных чисел,вычислить сумму тех из них,порядковые номера которых являются простыми числами. Помогите,пожалуйста,никак не могу додуматься. 0

Опции темы

Дана последовательность натуральных чисел,вычислить сумму тех из них,порядковые номера которых являются простыми числами

Решение