Cod sursa(job #5404)

Utilizator fishbogdan negrila fish Data 12 ianuarie 2007 12:37:40
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.85 kb
program cifra;
var f,g:text;
    n,i,j,k:longint;
    c:byte;
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;
           4:c:=c+6;
           9:c:=c+9;
           2:if n mod 4=0 then c:=c+6
                          else c:=c+4;
           3:if (j div 10) mod 2=0 then c:=c+7
                                   else c:=c+3;
           7:if (j div 10) mod 2=0 then c:=c+3
                                   else c:=c+7;
           8:if j mod 4=0 then c:=c+6
                          else c:=c+4;
                end;
           c:=c mod 10;
           end;
           writeln(g,c);
           end;
close(f); close(g);
end.