Question

Дано некоторое натуральное число СН. Вывести на печать ближайшее к нему простое число. Pascal

Answer 1

function simp(var n: integer): boolean;
var i,j: integer;
    priz: boolean;
begin
  priz:=true;  i:=2;
  j:=round(sqrt(n));
  repeat
    if (n mod i)=0 then
    begin
      priz:=false;
      break;
    end;
    i:=i+1;
  until i>j;
  simp:=priz;
end;
{ основная программа }
 var n: integer;
begin
  write('CH = ');  readln(n);
  n:=n+1;
  while not simp(n) do n:=n+1;
  writeln('наименьшее простое число: ',n);
end.