Cod sursa(job #123429)

Utilizator nod_softwareBudisteanu Ionut Alexandru nod_software Data 15 ianuarie 2008 22:09:06
Problema Sum Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.54 kb
program sum;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var fin,fout:text;
 k,  x, i,j,n,m,t,q,s:longint; ok:boolean;
{*-----------------------------*}
function prim(i,x:longint):boolean;
begin
        prim:=true;


                if (x mod i = 0 )  then
                Begin
                        prim:=false;
                        write(fout,q,' ');
                End; 

end;
{*---------------MAIN----------*}
begin
        assign(fin,'sum.in'); reset(fin);
        assign(fout,'sum.out'); rewrite(fout);
        readln(fin,n);
        for t:=1 to n do
        Begin
                Readln(fin,x);
                s:=0;       k:=  2*x-1;
                for i:=0 to k do
                Begin
                 ok :=true ;
                  if (x mod 2= 0 )and (i mod 2 =0) then ok :=false else begin  
                        for j:=2 to i do begin
                                       if ((x mod j=0) and (i mod j=0) )then
                                                                        begin ok:=false;break;end;
                                                                        end;
                        If ok then                                      
                        Begin                                            
                                S:=S+i;
                               // write(fout,i,' ');
                        End ;
                         end;
                End;
                  writeln(fout,s);
        End;
        close(fin);
        close(fout);
end.