Cod sursa(job #17931)

Utilizator Andr3iPop Andrei Andr3i Data 17 februarie 2007 14:09:13
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.68 kb
program cifra;
type  vec=array[1..10]of longword;
      sir=array[1..1000000]of longword;
const a:vec=(1,4,7,6,5,6,3,6,9,0);
      b:vec=(1,6,3,6,5,6,7,4,9,0);
var   n:sir;
      i,j,s,t,aux:longword;
      f,g:text;
begin
assign(f,'cifra.in');reset(f);
read(f,t);
for i:=1 to t do readln(f,n[i]);
close(f);
assign(g,'cifra.out');rewrite(g);
for i:=1 to t do begin
        s:=(((n[i] div 10) mod 10)*7)mod 10;
        aux:=0;
        if (n[i]div 10) mod 2=0 then
           for j:=1 to (n[i] mod 10) do inc(aux,a[j])
                                else
           for j:=1 to (n[i] mod 10) do inc(aux,b[j]);
s:=(s+(aux mod 10))mod 10;
writeln(g,s);
end;
close(g);
end.