Kamis, 22 Januari 2009

Membuat Program untuk Menampilkan Bilangan Prima

program bil_prima;
uses wincrt;
var
i,n,j: integer;
c: boolean;
begin
write( ' Masukkan batas akhir bilangan prima = ');readln(n);
for i := 2 to n do
begin
c:= true;
for j := 2 to i-1 do
begin
if (i mod j) = 0 then
begin
c:= false;
end;
end;
if c=true then
write((i):4);
end;
readln;
end.

Tidak ada komentar:

Posting Komentar

Kirim Komentar Anda
(Send Your Comment)