Advertisemen
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.
Advertisemen