Cod sursa(job #335496)

Utilizator ionutz32Ilie Ionut ionutz32 Data 30 iulie 2009 09:33:46
Problema Cifra Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.64 kb
var s:array[0..19] of 0..9;
t,n,i,j,a,r:longint;
v:string;
c:char;
f,g:text;
begin
s[0]:=0;s[1]:=1;s[2]:=5;s[3]:=2;s[4]:=8;s[5]:=3;s[6]:=9;s[7]:=2;s[8]:=8;
s[9]:=7;s[10]:=7;s[11]:=8;s[12]:=4;s[13]:=7;s[14]:=3;s[15]:=8;s[16]:=4;
s[17]:=1;s[18]:=5;s[19]:=4;
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);rewrite(g);
readln(f,t);
for i:=1 to t do
    begin
    readln(f,v);
    r:=0;
    a:=0;
    for j:=1 to length(v)-1 do
        begin
        a:=(r*10+ord(v[j])-48) div 2;
        r:=(ord(v[j])-48) mod 2;
        end;
    writeln(g,(4*a mod 10+s[r*10+ord(v[length(v)])-48]) mod 10);
    end;
close(f);close(g);
end.