[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1086
Var
  A:Array[1..15000] of Longint;
  P,I,J,N,T: LongInt;
  F: Boolean;
Begin
  Readln(N);
  P:=0;
  For I:=2 to MaxLongInt do begin
    F:=True;
    For J:=1 to P do begin
      If (I mod A[J] = 0) then begin
        F:=False;
        Break;
      End;
      If A[J]>=Sqrt(I) then Break;
    End;
    If F then begin
      Inc(P);
      A[P]:=I;
    End;
    If P=15000 then break;
  End;
  For I:=1 to N do begin
    Readln(T);
    Writeln(A[T]);
  End;
End.
Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 1112