ra_nieSS

program deret_bilangan_prima;

uses wincrt;

var i,temp:longint;

s, x, a, n : longint;

jml:integer;

function fakt (t : longint) : longint;
begin

temp := 0;

for i := 1 to t do if t mod i = 0 then inc (temp);

fakt:= temp;

end;

begin

clrscr;

writeln (‘Deret Bilangan Prima’);

writeln (‘——————————————–’);

write (‘Jumlah Bilangan Yang Ditampilkan Sebanyak : ‘);

repeat

readln(x);{meminta uses memasukkan jumlah deret bilangan}

until (x>=2);{input harus >=2}

writeln; writeln; writeln (‘Deret Bilangan Prima : ‘); writeln (”);

a := 1; s := 0;

repeat

if fakt (a) = 2 then

begin

write (a,’, ‘);
jml:=jml+a; inc (s);

end;

inc (a); until (s = x);

writeln; writeln(”);

write(‘Jika dijumlahkan, hasilnya : ‘,jml);

end.

OUT PUT

Deret bilangan prima
————————————-
jumlah bilangan yang ditampilkan sebanyak : 8

deret bilangan prima :
2, 3, 5, 7, 11, 13, 17, 19,
jika dijumlah, hasilnya : 77