Sabtu, 18 Desember 2010

program bilangan prima 1-20

Bilangan prima dari angka 1 s/d 20 = 2,3,5,7,11,13,17,19
Bilangan prima adalah bilangan yang bisa dibagi dengan bilangan 1 dan bilangan itu sendiri.
2: 2 mod 1=0, 2 mod 2=0
3: 3 mod 1=0, 3 mod 2=0, 3 mod 3=0
4: 4 mod 1=0, 4 mod 2=0, 4 mod 3=1, 4 mod 4=0
5: 5 mod 1=0, 5 mod 2=1, 5 mod 3=2, 5 mod 4=1, 5 mod 5=0
programnya :
uses crt;
var nilai , pembagi, jumlah0: byte;
begin
  clrscr;
  for nilai := 2 to 20 do
  begin
  jumlah0:=0 ;
  for pembagi :=1 to nilai do
  begin
  if nilai mod pembagi =0 then
  jumlah0:=jumlah0+1;
  end;
  if jumlah0= 2 then
  write(nilai:4);
  end;
  readln;
end.

Tidak ada komentar:

Poskan Komentar