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

[Максимка]

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

[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