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

@brus · Регистрация: 17.06.2011

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

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

@Puporev · 21.06.2011, 12:14

Pascal

uses crt;
var n,a,s,k:integer;
    f:boolean;
begin
writeln('Введите не менее 2 натуральных чисел:');
n:=0;
s:=0;
repeat
read(a);
if a<>0 then
 begin
  n:=n+1;
  if n=1 then f:=false
  else f:=true;
  k:=2;
  while(k*k<=n) and f do
  if n mod k=0 then f:=false
  else k:=k+1;
  if f then s:=s+a;
 end;
until(n>1)and(a=0);
write('Сумма чисел, номера которых простые числа=',s);
end.

@brus 0 / 0 / 0 Регистрация: 17.06.2011 Сообщений: 4
		1
	Вычислить сумму тех чисел, порядковые номера которых - простые числа 21.06.2011, 12:01. Показов 2295. Ответов 1 Метки нет (Все метки) Программа. Данная последовательность из не менее чем двух натуральных чисел, за которыми следует 0. Вычислить сумму тех из них, порядковые номера которых простые числа. 0

Опции темы

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

Решение