Program PAscal Mencari Bilangan Prma

Program BIL_PRIMA;
uses crt;
var
   i, j, n, x, y, z : longint;

Function jml_faktor( x : longint) : longint;
begin
   n := 0;
   for i := 1 to x do
  begin
     if x mod i = 0 then
    begin
       n := n+1;
end;
  end;
    end;

Begin
 clrscr;
 gotoxy(2,2);
  Write('MASUKKAN BERAPA NILAI YANG AKAN DI CARI : ');
  Readln(z);
  writeln;
  for x := 1 to z do
Begin
  jml_faktor(x);
  if n = 2 then
Begin
  Writeln(x);
  End;
  End;
Readln;
End.

Artikel Terkait