program fakbaru;
uses crt;
var i,j,n:integer;
begin
clrscr;
for i:=1 to 10 do
begin
n:=0;
//writeln('faktor ',i);
for j:=1 to i do
if (i mod j=0) then
begin
//writeln (j);
n:=n+1;
end;
//writeln('cacah faktor =',n);
if (n=2) then writeln(i,'bilangan prima');
end;
readln;
end.
Belum ada tanggapan untuk "Program Hitung Faktorial Bilangan Prima dengan Pascal"
Posting Komentar