Дано простое число. Составить функцию, которая будет находить следующее за ним простое число- Pascal(Паскаль)

uses crt;
function Prost(n:longint):boolean;
var i:longint;
    f:boolean;
begin
if n<2 then f:=false
else
 begin
  f:=true;
  i:=2;
  while (i*i<=n)and f do
  if n mod i=0 then f:=false
  else i:=i+1;
 end;
Prost:=f;
end;
var n,i:longint;
begin
clrscr;
repeat
write('Введите простое число n=');
readln(n);
until Prost(n);
i:=n+1;
while not Prost(i) do
i:=i+1;
write('Следующее простое число=',i);
readln
end.

Leave a Comment

− 8 = 2