Program Hitung Faktorial Bilangan Prima dengan Pascal

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.

Tweet

Jangan sampai ketinggalan postingan-postingan terbaik dari Gadget Mainstream. Berlangganan melalui email sekarang juga:

Atau sobat juga bisa follow Gadget Mainstream dengan mengklik tombol di bawah ini:

Artikel keren lainnya:

Ditulis oleh Gadget Mainstream pada tanggal Kamis, 08 Januari 2015