Cod sursa(job #17938)

Utilizator Andr3iPop Andrei Andr3i Data 17 februarie 2007 15:04:56
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.77 kb
program cifra;
type  vec=array[1..10]of integer;
      str=array[1..30005]of string;
      sir=array[1..30005]of integer;
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   m:str;
      i,j,s,t,aux,err:integer;
      f,g:text;
      n:sir;
begin
assign(f,'cifra.in');reset(f);
readln(f,t);
for i:=1 to t do readln(f,m[i]);
close(f);
assign(g,'cifra.out');rewrite(g);
for i:=1 to t do begin
        val(m[i][length(m[i])],n[i],err);
        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.