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

@kry · Регистрация: 29.12.2008

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

Что то не могу никак решить задачу, с проверкой на простое число выскакивают косяки.

Задача.
Задана последовательность из N вещественных чисел. Вычислить
сумму чисел, порядковые номера которых являются простыми числами.
Нужно использовать одномерные массивы, запрещается использование процедур.

Добавлено через 52 минуты 34 секунды
Просьба знающих людей подумать над задачей, ибо сдавать нужно через 2 часа.

@Puporev · 29.12.2008, 08:51

Вот решение, не забывай, что 1 не относится к простым.

Pascal

uses crt;
const n=5;
var a:array[1..n] of real;
    i,j,k:integer;
    sum:real;
begin
clrscr;
randomize;
writeln('Posledovatelnost:');
for i:=1 to n do
   begin
     a[i]:=10*random;
     write(a[i]:4:1);
   end;
writeln;
sum:=0;
for i:=2 to n do  //начинаем с 2
  begin
    k:=0;
    for j:=2 to round(sqrt(i)) do //смотрим каждое число до его корня, дальше нет смысла, делителей нет
    if i mod j=0 then inc(k);//считаем делители
    if k=0 then sum:=sum+a[i];//если делителей нет, считаем сумму
  end;
write('Summa=',sum:0:1);
readln
end.

@kry · 30.12.2008, 06:28 **[ТС]**

Спасибо.

@kry 0 / 0 / 0 Регистрация: 29.12.2008 Сообщений: 8
		1
	Вычислить сумму чисел, порядковые номера которых являются простыми числами. 29.12.2008, 07:43. Показов 11322. Ответов 2 Метки нет (Все метки) Что то не могу никак решить задачу, с проверкой на простое число выскакивают косяки. Задача. Задана последовательность из N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются простыми числами. Нужно использовать одномерные массивы, запрещается использование процедур. Добавлено через 52 минуты 34 секунды Просьба знающих людей подумать над задачей, ибо сдавать нужно через 2 часа. 0

@kry 0 / 0 / 0 Регистрация: 29.12.2008 Сообщений: 8
	30.12.2008, 06:28 [ТС]	3
	Спасибо. 0