Cod sursa(job #74790)

Utilizator al3csutzuSirbu Alexandru al3csutzu Data 28 iulie 2007 12:03:53
Problema Cifra Scor 80
Compilator fpc Status done
Runda Arhiva de probleme Marime 2.18 kb
program cifre;
var f,g:text;
teste,i,t,c1,c2:integer;
s:string[1];
sol:longint;
begin
  assign(f,'cifra.in'); assign(g,'cifra.out');
  reset(f); rewrite(g);
  readln(f,teste);
  for t:=1 to teste do
  begin
    c1:=0; c2:=0;
    while not eoln(f) do
    begin
      read(f,s[1]);
      c2:=c1;
      val(s[1],c1,i);
    end;
    i:=c2*10+c1;
    case i of
0:writeln(g,0);
1:writeln(g,1);
2:writeln(g,5);
3:writeln(g,2);
4:writeln(g,8);
5:writeln(g,3);
6:writeln(g,9);
7:writeln(g,2);
8:writeln(g,8);
9:writeln(g,7);
10:writeln(g,7);
11:writeln(g,8);
12:writeln(g,4);
13:writeln(g,7);
14:writeln(g,3);
15:writeln(g,8);
16:writeln(g,4);
17:writeln(g,1);
18:writeln(g,5);
19:writeln(g,4);
20:writeln(g,4);
21:writeln(g,5);
22:writeln(g,9);
23:writeln(g,6);
24:writeln(g,2);
25:writeln(g,7);
26:writeln(g,3);
27:writeln(g,6);
28:writeln(g,2);
29:writeln(g,1);
30:writeln(g,1);
31:writeln(g,2);
32:writeln(g,8);
33:writeln(g,1);
34:writeln(g,7);
35:writeln(g,2);
36:writeln(g,8);
37:writeln(g,5);
38:writeln(g,9);
39:writeln(g,8);
40:writeln(g,8);
41:writeln(g,9);
42:writeln(g,3);
43:writeln(g,0);
44:writeln(g,6);
45:writeln(g,1);
46:writeln(g,7);
47:writeln(g,0);
48:writeln(g,6);
49:writeln(g,5);
50:writeln(g,5);
51:writeln(g,6);
52:writeln(g,2);
53:writeln(g,5);
54:writeln(g,1);
55:writeln(g,6);
56:writeln(g,2);
57:writeln(g,9);
58:writeln(g,3);
59:writeln(g,2);
60:writeln(g,2);
61:writeln(g,3);
62:writeln(g,7);
63:writeln(g,4);
64:writeln(g,0);
65:writeln(g,5);
66:writeln(g,1);
67:writeln(g,4);
68:writeln(g,0);
69:writeln(g,9);
70:writeln(g,9);
71:writeln(g,0);
72:writeln(g,6);
73:writeln(g,9);
74:writeln(g,5);
75:writeln(g,0);
76:writeln(g,6);
77:writeln(g,3);
78:writeln(g,7);
79:writeln(g,6);
80:writeln(g,6);
81:writeln(g,7);
82:writeln(g,1);
83:writeln(g,8);
84:writeln(g,4);
85:writeln(g,9);
86:writeln(g,5);
87:writeln(g,8);
88:writeln(g,4);
89:writeln(g,3);
90:writeln(g,3);
91:writeln(g,4);
92:writeln(g,0);
93:writeln(g,3);
94:writeln(g,9);
95:writeln(g,4);
96:writeln(g,0);
97:writeln(g,7);
98:writeln(g,1);
99:writeln(g,0);
end;
     readln(f);

  end;

  close(f); close(g);
end.