function Prostoe(N : Byte) : boolean;
Var i : Byte;
begin
for i:=2 to N/2+1 do
if N mod i = 0 then
begin
Prostoe:=false;
Exit
end;
Prostoe:=true
end;
Составить программу которая проверяет является ли заданное натуральное число простым.
Составить программу которая проверяет является ли заданное натуральное число простым.
Pascal
Pascal
function Prostoe(N : Byte) : boolean;
Var i : Byte;
begin
if i in[1,2] then prostoe:=true
else begin
for i:=2 to N-1 do
if N mod i = 0 then begin
Prostoe:=false;
Exit
end;
Prostoe:=true
end
end;
Var i : Byte;
begin
if i in[1,2] then prostoe:=true
else begin
for i:=2 to N-1 do
if N mod i = 0 then begin
Prostoe:=false;
Exit
end;
Prostoe:=true
end
end;
чучуть изменила функцию Супер Лемар'a, надеюсь с синтаксисом не напортачила.
Код:
Если совсем всё правилно сделать, то достаточно проверять только до sqrt(N):
2 OlgaKr: не Ламер, а Лемар
Код:
function isSimple( n : Integer ) : boolean;
var
i : Integer;
begin
for i := 2 to sqrt(N) do
if N mod i = 0 then
begin
isSimple := false;
Exit
end;
isSimple := true
end;
var
i : Integer;
begin
for i := 2 to sqrt(N) do
if N mod i = 0 then
begin
isSimple := false;
Exit
end;
isSimple := true
end;
2 OlgaKr: не Ламер, а Лемар