Saindra Santyadiputra

SOURCE

program deret_bilangan_prima;
uses wincrt;
var i,temp:longint;
s, x, a, n : longint;
jml:integer;
function fakt (t : longint) : longint;
{funtion fakt untuk mengecek banyaknya faktorial dari suatu bilangan}
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{jika banyk faktoriaal dari suatu bilangan adl 2 maka}
begin
write (a,', '); {cetak bilangan yg memp 2 faktorial}
jml:=jml+a; inc (s);{hitung jumlah dari deret bilangan}
end;

inc (a); until (s = x);
writeln; writeln('');
write('Jika dijumlahkan, hasilnya : ',jml);{cetak jumlah}
end.


OUTPUT