Cod sursa(job #613644)
Utilizator | Data | 2 octombrie 2011 16:06:16 | |
---|---|---|---|
Problema | Cifra | Scor | 90 |
Compilator | fpc | Status | done |
Runda | test_info20 | Marime | 1.06 kb |
program p1;
const mat:array[0..9,0..9] of byte = ((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 n:string;
x,t,i:integer;
f1,f2:text;
BEGIN
assign(f1,'cifra.in'); reset(f1);
assign(f2,'cifra.out'); rewrite(f2);
readln(f1,t);
for i:=1 to t do
begin
readln(f1,n);
if length(n)=1 then
writeln(f2,mat[0,ord(n[1])-ord('0')])
else
writeln(f2,mat[ord(n[length(n)-1])-ord('0'),ord(n[length(n)])-ord('0')]);
end;
close(f1); close(f2);
END.