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

Дано некоторое натуральное число СН. Вывести на печать ближайшее к нему простое число. Pascal
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы