Cod sursa(job #5416)

Utilizator gozmanGrosu Andrei Nicolae gozman Data 12 ianuarie 2007 13:08:59
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.48 kb
program p1;
var a:array[0..9,0..9] of byte;
    v:array[0..10] of byte;
   f,g:text;
   u,u1,b:byte;
   t,i,j,cr,er,n:word;
   s:string[100];
begin
v[1]:=1;
v[2]:=5;
v[3]:=2;
v[4]:=8;
v[5]:=3;
v[6]:=9;
v[7]:=2;
v[8]:=8;
v[9]:=7;
v[9]:=7;
v[10]:=0;
assign(f,'cifra.in');  reset(f);
readln(f,t);
assign(g,'cifra.out'); rewrite(g);
for i:= 1 to t do
begin
     readln(f,s);
     val(s[length(s)],n,er);
     writeln(g,v[n]);
end;
     close(f);
     close(g);
end.