Помогите решить задачу, дано простое число нужно вывести следующее за ним простое число Опции

[Максимка]

дано простое число нужно вывести следующее за ним простое число

[compiler]

в разделе Математика желательно избегать программирования..

Lapp

это задача, которая помоему была в ЧаВо.

Добавлено через 10 мин.
алгоритм Миллера-Рабина тебе в помощь

Сообщение отредактировано: compiler - 28.03.2007 14:36

[Lapp]

Без программирования в общем случае это сделать невозможно, полагаю.

М

Тема переносится в Задачи

[Tan]

если всё ещё актуально вот для положительных чисел :

 uses crt;
var  k, delitelj, i : Integer;
            Find    : boolean;
begin
readln (k);
 while find = False do
  begin
    delitelj:=0;
    inc (k);
    for i:=1 to K do if (k mod i = 0) then inc (delitelj);
    If delitelj = 2 then 
      begin
         find:= True;
         writeln (K);   
      end;
  end;
readkey;
end.

Сообщение отредактировано: Tan - 28.03.2007 16:39

[Гость]

А вот помоему наилучший вариант господина Эратосфена...

var
 k,b,m:longint;
 bl:boolean;
begin
 readln(m);
 if (m=2) then writeln('3')
          else
 if (m=3) then writeln('5')
 else
 repeat
  inc(m); b:=2; k:=m div 2;
  while (m mod b<>0)and(b<k) do
   begin
    inc(b);
    if b=k then
     begin
      writeln(m);
      bl:=true;
      halt;
     end;
   end;
 until  bl=true;
end.

[volvo]

arximed,
наилучший из каких соображений?