Cod sursa(job #652647)

Utilizator OpportunityVlad Negura Opportunity Data 25 decembrie 2011 17:08:54
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.52 kb
program p1;
var i,k,n,cit,rest,cifra:longint;
    fi,fo:text;
Begin
 assign(fi,'cifra.in'); reset(fi);
 assign(fo,'cifra.out'); rewrite(fo);

  read(fi,k);

  for i:=1 to k do
   begin
    readln(fi,n);
     cit:=n div 10;
      rest:=n mod 10;
      case rest of
       1:cifra:=1;
       2:cifra:=5;
       3,7:cifra:=2;
       4,8:cifra:=8;
       5:cifra:=3;
       6:cifra:=9;
       0,9:cifra:=7;
      end;
      writeln(fo,(cit*7 mod 10 + cifra)mod 10);
    end;

 close(fi); close(fo);
END.