Cod sursa(job #262434)

Utilizator MihaiBunBunget Mihai MihaiBun Data 19 februarie 2009 12:21:44
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.02 kb
program jhvbjh;
var f,g:text;
    s,a:string;
    c,r,t,er,n,u,i,nr:integer;
begin
  assign(f,'cifra.in');
  reset(f);
  assign(g,'cifra.out');
  rewrite(g);
  readln(f,t);
  for i:=1 to t do
    begin
      readln(f,s);
      n:=length(s);
      if n<3 then begin
                    val(s,nr,er);
                    c:=nr div 20;
                    r:=nr mod 20
                  end
             else begin
                     a:=copy(s,n-2,3);
                     val(a,nr,er);
                     c:=nr div 20;
                     r:=nr mod 20
                  end;
      case r of
       0:u:=0;
       1:u:=1;
       2:u:=5;
       3:u:=2;
       4:u:=8;
       5:u:=3;
       6:u:=9;
       7:u:=2;
       8:u:=8;
       9:u:=7;
       10:u:=7;
       11:u:=8;
       12:u:=4;
       13:u:=7;
       14:u:=3;
       15:u:=8;
       16:u:=4;
       17:u:=1;
       18:u:=5;
       19:u:=4;
      end;
    u:=(4*c+u)mod 10;
    writeln(g,u);
    end;
    close(f);
    close(g);
end.