Rešitev: program Je praštevilo? (Pascal)

Iz MaFiRaWiki

Naloga: program Je praštevilo?

Program JePrastevilo;
var
  n, i: Integer;
Function isPrime(st: Integer): Boolean;
var
  koren, i: Integer;
begin
  if st = 1 then
  begin
    isPrime := false;
    exit;
  end;
  if st = 2 then
  begin
    isPrime := true;
    exit;
  end;
  koren := Round(Sqrt(n));
  for i := 2 to koren do
  begin
    if (n mod i = 0) then
    begin
      isPrime := false;
      exit;
    end;
  end;
  isPrime := true;
end;
begin
  ReadLn(n);
  if isPrime(n) then
    WriteLn(n, ' je prastevilo')
  else
    WriteLn(n, ' ni prastevilo');
  ReadLn;
end.

Preizkušeno s prevajalniki: Turbo Pascal 5.5, Free Pascal 2.1.4, Borland Delphi 7.

Osebna orodja