Cod sursa(job #51271)

Utilizator dushmiMihai-Alexandru Dusmanu dushmi Data 10 aprilie 2007 18:44:02
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 2.51 kb
var t,i,j,aux,uc,n:longint;
    f1,f2:text;
begin
assign(f1,'cifra.in'); reset(f1);
assign(f2,'cifra.out'); rewrite(f2);
readln(f1,t);
for i:=1 to t do
        begin
        readln(f1,n);
        uc:=0;
        for j:=1 to n do
                begin
                        aux:=j mod 10;
                        case aux of
                                0:uc:=uc+0;
                                1:uc:=uc+1;
                                2:
                                begin
                                        if j mod 4=1 then uc:=uc+2;
                                        if j mod 4=2 then uc:=uc+4;
                                        if j mod 4=3 then uc:=uc+8;
                                        if j mod 4=0 then uc:=uc+6;
                                end;
                                3:
                                begin
                                        if j mod 4=1 then uc:=uc+3;
                                        if j mod 4=2 then uc:=uc+9;
                                        if j mod 4=3 then uc:=uc+7;
                                        if j mod 4=0 then uc:=uc+1;
                                end;
                                4:
                                begin
                                        if j mod 2=1 then uc:=uc+4;
                                        if j mod 2=0 then uc:=uc+6;
                                end;
                                5:uc:=uc+5;
                                6:uc:=uc+6;
                                7:
                                begin
                                        if j mod 4=1 then uc:=uc+7;
                                        if j mod 4=2 then uc:=uc+9;
                                        if j mod 4=3 then uc:=uc+3;
                                        if j mod 4=0 then uc:=uc+1;
                                end;
                                8:
                                begin
                                        if j mod 2=1 then uc:=uc+8;
                                        if j mod 2=0 then uc:=uc+4;
                                end;
                                9:
                                begin
                                        if j mod 2=1 then uc:=uc+9;
                                        if j mod 2=0 then uc:=uc+1;
                                end;
                        end;
                end;
                writeln(f2,uc mod 10);
        end;
close(f1);
close(f2);
end.