Our Blog

Определение, является ли число простым

Данный код на паскале поможет Вам определить, является ли данное число простым

var f: boolean;
n,i: integer;
Begin
writeln ('vvedite chislo');
readln (n);
f:= true;
i:=2;
while (i<sqrt (n)) and f do
begin
if n mod i = 0 then f:=false;
i:=i+1;
end;
if f then write ('prostoe') else write ('sostavnoe');
readln
end.

Или еще один вариант:

label 1;
var f: boolean;
n,i: integer;
Begin
writeln ('vvedite chislo');
readln (n);
f:= true;
for i:=2 to n-1 do begin if n mod i = 0 then
begin f:=false;
goto 1
end;
end;
1: if f then write ('prostoe') else write ('sostavnoe');
readln
end.
Comments ( 0 )
    -->