Cod sursa(job #58319)

Utilizator h_istvanHevele Istvan h_istvan Data 5 mai 2007 10:35:55
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.96 kb
program cifra;
const szjegy:array[1..9] of byte = (1,4,7,6,5,6,3,6,9);
      temp:array[1..9] of byte = (0,1,1,0,0,0,1,1,0);
var f,fout:text;
    t,i:word;
    sz:string;

function megold:byte;
var  i:byte;
     e,t:word;
begin
     e:=0;
     for i:=1 to 9 do
     begin
          t:=(ord(sz[length(sz)-1])-48);
          if(ord(sz[length(sz)])-48 >= i) then t:=t+1;

          if(temp[i] = 0) then
          begin
               e:=e+t*szjegy[i];
               e:=e mod 10;
          end else
          begin
               if(t mod 2 = 1) then e:=e+t*szjegy[i];
               e:=e mod 10;
          end;
     end;
     megold:=e;
end;

begin
     assign(f,'cifra.in');
     assign(fout,'cifra.out');
     reset(f);
     rewrite(fout);
     readln(f,t);
     for i:=1 to t do
     begin
          readln(f,sz);
          if(length(sz)=1) then insert('0',sz,1);
          writeln(fout,megold);
     end;
     close(f);
     close(fout);
end.