[pascal] suma N kolejnych liczb pierwszych

[jojo23]

Potrzebuje program, który będzie sumował N kolejnych liczb pierwszych, proszę o pomoc..

[spajder]

w najróżniejszy sposób możesz... najprosściej przechodzić kolejno przez liczby naturalne pętlą for, dla każdej wywoływać funkcję czyJestPierwsza i jeśli jest do sumować ją i zwiększać liczbę zsumowanych elementów. w pesudokodzie:

Kod: Zaznacz cały

ilosc = 0;
i : = 1;
suma = 0;
while ilosc < N do
   begin
      if czyJestPierwsza(i) then
         begin
            suma = suma + i;
            ilosc = ilosc + 1;
         end;
   end;

deklarację odpowiednich zmiennych zostawiam Tobie. Funlcję czyJestPierwsza można implementować w najróżniejsze sposoby: np. dzielisz liczbę i przez kolejne liczby, nie większe niż $sqrt{i}$