Cod sursa(job #1556551)

Utilizator cretu_cipriancretu ciprian cretu_ciprian Data 25 decembrie 2015 11:46:09
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.7 kb
program infoarena_cifra;

var f1,f2:text;
  s:string;
  c:char;
begin
  assign(f1,'cifra.in');reset(f1); readln(f1,s);
  assign(f2,'cifra.out');rewrite(f2);
  while not eof(f1) do
begin
 readln(f1,s); c:=s[length(s)];
 if (length(s)=1) then begin
   case c of
   '1':c:='1';
   '2':c:='5';
   '3':c:='2';
   '4':c:='8';
   '5':c:='3';
   '6':c:='9';
   '7':c:='2';
   '8':c:='8';
   '9':c:='9';
    '0':c:='9';
   end;
 end
 else
 begin
  case c of
    '1':c:='0';
   '2':c:='3';
   '3':c:='6';
   '4':c:='5';
   '5':c:='4';
   '6':c:='5';
   '7':c:='2';
   '8':c:='5';
   '9':c:='0';
    '0':c:='9';
   end;
 end;
 writeln(f2,c);


end;    close(f1);close(f2);
end.