7. PROGRAM UNTUK MENAMPILKAN BILANGAN PRIMA YANG DIMULAI DARI ANGKA 1 SAMPAI DENGAN ANGKA 20.

algoritmanya adalah :
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
Program dalam bahasa pascal adalah sebagai berikut :

Uses crt;
Var i, pembagi, jumlah0 : integer;
Begin
clrscr;
for i:=2 to 20 do
Begin
jumlah0:=0;
for pembagi :=1 to i do
begin
if i mod pembagi=0 then
jumlah0:=jumlah0+1;
end;
if jumlah0=2 then
write(i:5);
end;
readln;
End.