Cod sursa(job #57777)

Utilizator deleted_64d853f2e2bbccbeDELETED deleted_64d853f2e2bbccbe Data 2 mai 2007 23:02:02
Problema Cifra Scor 80
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.83 kb
var n,t,j,r,m,i,k:longint;
    v : array[0..99] of integer;
    f,g:text;
    cif1,cif2:char;
    cod:integer;
begin
n:=0;
for i:=1 to 99 do
begin
case i 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;
v[i] := n;
end;

     assign (f,'cifra.in');
     reset (f);
     assign (g,'cifra.out');
     rewrite (g);
     readln(f);
     while not eof(f) do
         begin
              cif1:='0';
              cif2:='0';
              for i:=1 to 100 do 
              if(not eoln(f)) and(not eof(f))then
                    begin
                         cif1:=cif2;
                         read (f,cif2);
                    end;
              readln(f);
              val(cif1,n,cod);
              val(cif2,m,cod);
              n:=n*10+m;
writeln (g,v[n]);
end;
close (f);
close (g);
end.