Cod sursa(job #5403)

Utilizator fishbogdan negrila fish Data 12 ianuarie 2007 12:18:46
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.16 kb
program cifra;
var f,g:text;
    n,i,j,k,c,p,l:integer;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,n);
for i:=1 to n do begin
      readln(f,k);
      c:=0;
      for j:=1 to k do begin
      case j mod 10 of
           1:c:=c+1;
           5:c:=c+5;
           6:c:=c+6;
           0:c:=c;
           2:begin
             p:=1;
             for l:=1 to (j mod 4) do p:=p*2;
             c:=c+(6*p) mod 10;
             end;
          3:begin
           p:=1;
           for l:=1 to (j mod 4) do p:=p*3;
           c:=c+(p mod 10);
           end;
           4:if (j mod 2=1) then c:=c+4
                            else c:=c+6;
           7:begin
             p:=1;
             for l:=1 to (j mod 4) do p:=p*7;
             c:=c+(p mod 10);
             end;
           8:begin
            p:=1;
            for l:=1 to (j mod 4) do p:=p*8;
            c:=c+(6*p mod 10);
            end;
           9:if j mod 2=1 then c:=c+9
                          else c:=c+1;
                end;
           c:=c mod 10;
           end;
           writeln(g,c);
           end;
close(f); close(g);
end.