Создать функцию, позволяющую распознавать простые числа — Pascal(Паскаль)

function Simple(n:longint):boolean;
var
  i:longint;
begin
  for i:=2 to round(sqrt(n)) do
    if n mod i=0 then
    begin
      Simple:=false;
      exit
    end;
  Simple:=true;
end;

Leave a Comment

23 + = 29