Cod sursa(job #28305)

Utilizator NebhotepMetes Alexandru Nebhotep Data 7 martie 2007 18:19:17
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.43 kb
var i,a,j,n,p,m,t,b:longint;
    f,g:text;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for i:=1 to t do begin
    readln(f,b);
    n:=0;
    for j:=1 to b do begin
        a:=j;
        m:=a mod 10;
        p:=a mod 10;
        if m=0 then n:=n+0;
        if m=1 then n:=n+1;
        if m=5 then n:=n+5;
        if m=6 then n:=n+6;
        if m=2 then begin
           if p mod 4=1 then n:=n+2;
           if p mod 4=2 then n:=n+4;
           if p mod 4=3 then n:=n+8;
           if p mod 4=0 then n:=n+6;
        end;
        if m=3 then begin
           if p mod 4=1 then n:=n+3;
           if p mod 4=2 then n:=n+9;
           if p mod 4=3 then n:=n+7;
           if p mod 4=0 then n:=n+1;
        end;
        if m=4 then begin
           if p mod 2=1 then n:=n+4;
           if p mod 2=0 then n:=n+6;
        end;
        if m=7 then begin
           if p mod 4=1 then n:=n+7;
           if p mod 4=2 then n:=n+9;
           if p mod 4=3 then n:=n+3;
           if p mod 4=0 then n:=n+1;
        end;
        if m=8 then begin
           if p mod 4=1 then n:=n+8;
           if p mod 4=2 then n:=n+4;
           if p mod 4=3 then n:=n+2;
           if p mod 4=0 then n:=n+6;
        end;
        if m=9 then begin
           if p mod 2=1 then n:=n+9;
           if p mod 2=0 then n:=n+1;
        end;
        n:=n mod 10;
    end;
    writeln(g,n);
end;
close(g);
end.