Cod sursa(job #139924)

Utilizator Vlad-andreiVlad Fisca Vlad-andrei Data 20 februarie 2008 21:43:52
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.84 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);
                s:=(4*(n div 20)) mod 10;
                p:=0;
                for j:=1 to n mod 100 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.