Функция определения простоты числа на Pascal

Функция определения простоты числа...

function IsSimple(N: integer): boolean;
begin
  Result := True;
  for var i:=2 to round(sqrt(N)) do 
    if N mod i = 0 then
    begin
      Result := False;
      exit;
    end;
end;
 
begin
  writeln(IsSimple(13));
  writeln(IsSimple(4));
  writeln(IsSimple(7));
end.



Просмотров: 2919
10.02.2015, 10:28 -

Категория: Статьи » Программирование » Pascal