Program while-do (10 bilangan prima)

Program firman;

Uses wincrt;

Var

  Prima :Integer;

  i,j: Integer;

  bil : Integer;

Begin

  i:=1;

  while i<=29 do

  Begin

  i:=i+1;

    Prima:=i;

    For j:= 2 to i-1 Do

    Begin

      bil := (i mod j);

      If bil = 0 then Prima:=0;

          End;

    If Prima <> 0 Then Write(Prima,' ');

    end;

  Readln;

End.

Layout

Share On