Cod sursa(job #1601959)

Utilizator guideamarinGuidea Marin guideamarin Data 16 februarie 2016 13:33:55
Problema Cifra Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.64 kb
program cifram;
type tt=array[1..9] of byte;
var i,a,b,n,k,ra: integer; f1,f2:text;s:string;t,tr:tt;
begin
assign(f1,'cifra.in');assign(f2,'cifra.out');
reset(f1);rewrite(f2);
t[1]:=1;t[2]:=5;t[3]:=2; t[4]:=8;t[5]:=3;t[6]:=9;t[7]:=2;t[8]:=8;t[9]:=7;
tr[1]:=1;tr[2]:=7;tr[3]:=0; tr[4]:=6;tr[5]:=1;tr[6]:=7;tr[7]:=4;tr[8]:=8;tr[9]:=7;
readln(f1,n);
for i:=1 to n do
begin   a:=0;b:=0;
readln(f1,s); ra:=0;
k:=length(s);
if k>1 then begin b:=ord(s[k-1])-48; a:=ord(s[k])-48; end else a:=ord(s[k])-48;
ra:=((b*7) mod 10);
if b mod 2=0 then ra:=(ra+t[a])mod 10 else ra:=(ra+tr[a])mod 10;
writeln(f2,ra);
 end;
 close(f1);close(f2);
 end.