Cod sursa(job #264581)

Utilizator vyrkolakosMarcu Sabin vyrkolakos Data 22 februarie 2009 13:44:19
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.81 kb
 program Cifra;

        var     f,x:text;
                t,g,i,j,p,c:longint;
                s:string;
                v:array [0..100] of byte;

Begin

        assign(f,'cifra.in');   reset(f);
        g:=0;v[0]:=0;
        for i:=1 to 100 do              begin
                p:=1;
                c:=i mod 10;
                for j:=1 to i do
                        p:=p*c mod 10;
                g:=(g+p) mod 10;
                v[i]:=g;                end;
           readln(f,t);
        assign(x,'cifra.out');  rewrite(x);
        for j:=1 to t do                begin
                readln(f,s);
                s:='0'+s;
                s:=copy(s,length(s)-1,2);
                val(s,i,g);
                writeln(x,v[i]);        end;
        close(f);               close(x);

end.