Cod sursa(job #140248)

Utilizator Vlad-andreiVlad Fisca Vlad-andrei Data 21 februarie 2008 16:25:57
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.79 kb
program cifre;
var f,g:text;
        s,p,i,t,j,n:longint;
begin
        assign(f,'cifre.in');
        assign(g,'cifre.out');
        reset(f);
        rewrite(g);
        read(f,t);
        s:=0;
        for i:=1 to t do
        begin
                readln(f,n);
                p:=0;
                for j:=1 to n do
                begin
                        case (j mod 4) of
                        0:p:=(j mod 10)*(j mod 10)*(j mod 10)*(j mod 10);
                        1:p:=(j mod 10);
                        2:p:=(j mod 10)*(j mod 10);
                        3:p:=(j mod 10)*(j mod 10)*(j mod 10);
                        end;
                s:=(s+p) mod 10;
                end;
                writeln(g,s);
        end;
        close(f);
        close(g);
end.