Cod sursa(job #57776)

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