Cod sursa(job #97134)

Utilizator floringh06Florin Ghesu floringh06 Data 5 noiembrie 2007 15:46:26
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.75 kb
const v:array[0..99] of integer  =
(0,
1,
5,
2,
8,
3,
9,
2,
8,
7,
7,
8,
4,
7,
3,
8,
4,
1,
5,
4,
4,
5,
9,
6,
2,
7,
3,
6,
2,
1,
1,
2,
8,
1,
7,
2,
8,
5,
9,
8,
8,
9,
3,
0,
6,
1,
7,
0,
6,
5,
5,
6,
2,
5,
1,
6,
2,
9,
3,
2,
2,
3,
7,
4,
0,
5,
1,
4,
0,
9,
9,
0,
6,
9,
5,
0,
6,
3,
7,
6,
6,
7,
1,
8,
4,
9,
5,
8,
4,
3,
3,
4,
0,
3,
9,
4,
0,
7,
1,
0);

var fi,fo:text;
    s,s1,s2:string;
    a,b,e,ind,T,i:integer;

begin
assign(fi,'cifra.in'); reset(fi);
assign(fo,'cifra.out'); rewrite(fo);
readln(fi,T);
for i:=1 to T do
begin
readln(fi,s);
s1:=s[length(s)-1];
s2:=s[length(s)];
val(s1,a,e);
val(s2,b,e);
ind:=a*10+b;
writeln(fo,v[ind]);
end;
close(fo);
end.