Cod sursa(job #57771)

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

end;
writeln (g,n);
end;
close (f);
close (g);
end.