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.