Cod sursa(job #74791)

Utilizator al3csutzuSirbu Alexandru al3csutzu Data 28 iulie 2007 12:09:13
Problema Cifra Scor 80
Compilator fpc Status done
Runda Arhiva de probleme Marime 2.29 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;
    case c2 of
0: case c1 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);
   end;
1: case c1 of
0:writeln(g,7);
1:writeln(g,8);
2:writeln(g,4);
3:writeln(g,7);
4:writeln(g,3);
5:writeln(g,8);
6:writeln(g,4);
7:writeln(g,1);
8:writeln(g,5);
9:writeln(g,4);
   end;
2: case c1 of
0:writeln(g,4);
1:writeln(g,5);
2:writeln(g,9);
3:writeln(g,6);
4:writeln(g,2);
5:writeln(g,7);
6:writeln(g,3);
7:writeln(g,6);
8:writeln(g,2);
9:writeln(g,1);
  end;
3: case c1 of
0:writeln(g,1);
1:writeln(g,2);
2:writeln(g,8);
3:writeln(g,1);
4:writeln(g,7);
5:writeln(g,2);
6:writeln(g,8);
7:writeln(g,5);
8:writeln(g,9);
9:writeln(g,8);
  end;
4: case c1 of
0:writeln(g,8);
1:writeln(g,9);
2:writeln(g,3);
3:writeln(g,0);
4:writeln(g,6);
5:writeln(g,1);
6:writeln(g,7);
7:writeln(g,0);
8:writeln(g,6);
9:writeln(g,5);
  end;
5: case c1 of
0:writeln(g,5);
1:writeln(g,6);
2:writeln(g,2);
3:writeln(g,5);
4:writeln(g,1);
5:writeln(g,6);
6:writeln(g,2);
7:writeln(g,9);
8:writeln(g,3);
9:writeln(g,2);
  end;
  6: case c1 of
0:writeln(g,2);
1:writeln(g,3);
2:writeln(g,7);
3:writeln(g,4);
4:writeln(g,0);
5:writeln(g,5);
6:writeln(g,1);
7:writeln(g,4);
8:writeln(g,0);
9:writeln(g,9);
end;
7: case c1 of
0:writeln(g,9);
1:writeln(g,0);
2:writeln(g,6);
3:writeln(g,9);
4:writeln(g,5);
5:writeln(g,0);
6:writeln(g,6);
7:writeln(g,3);
8:writeln(g,7);
9:writeln(g,6);
end;
8: case c1 of
0:writeln(g,6);
1:writeln(g,7);
2:writeln(g,1);
3:writeln(g,8);
4:writeln(g,4);
5:writeln(g,9);
6:writeln(g,5);
7:writeln(g,8);
8:writeln(g,4);
9:writeln(g,3);
end;
9: case c1 of
0:writeln(g,3);
1:writeln(g,4);
2:writeln(g,0);
3:writeln(g,3);
4:writeln(g,9);
5:writeln(g,4);
6:writeln(g,0);
7:writeln(g,7);
8:writeln(g,1);
9:writeln(g,0);
end;
end;
     readln(f);

  end;

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