Cod sursa(job #147377)

Utilizator radupointMircea Radu-Viorel radupoint Data 2 martie 2008 20:52:53
Problema Sum Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.63 kb
program sum;
 var
    f,g:text;
    y,x,n,i,s:longint;

 function p(x:longint):boolean;
  var
     d:longint;
     ok:boolean;
   begin
        d:=2;
        ok:=true;
         while (ok) and (d<=x div 2) do
          begin
           if x mod d=0 then
            ok:=false;
            inc(d);
          end;
          p:=ok;
   end;

begin
 assign(f,'sum.in');
 reset(f);
  readln(f,n);
 assign(g,'sum.out');
 rewrite(g);
  for i:=1 to n do
   begin
    readln(f,x);
    s:=x;
     for y:=1 to 2*x do
       if p(y) then
        s:=s+y;
        writeln(g,s);
     end;
     close(f);
     close(g);
    end.