[D_E_N_]

Опять наркоманские олимпиадные задачи.

Опубликуй код, не хочется в архивах рыться.

Первая версия уж очень велика для публикации, да и надеятся на неё без толку, размер кода не катит.

Вот, реализация второй версии:

Код:

program olymp_lotery;

function isSimple(X: cardinal): boolean;
var i: cardinal;
Begin
     result:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2)
          then exit;
     i:=3;
     while i <= sqrt(x) do
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     result:=true;
End;

var
N,i,T:cardinal;
begin
readln(T);
while t<>0 do
begin inc(n);
readln(n);
i:=N;
while (n-i)<100 do
begin
if isSimple(N) then break;
inc(N,1);
end;
writeln(N);
dec(t);
end;
end.