Cod sursa(job #445066)

Utilizator axel15dobre alex axel15 Data 22 aprilie 2010 17:57:57
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.72 kb
var uc,i,m,n,c,t,u,y:longint;
    x,a:array[0..9] of integer;
    f,g:text;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out');  rewrite(g);
x[0]:=0;
x[1]:=1;
x[2]:=5;
x[3]:=2;
x[4]:=8;
x[5]:=3;
x[6]:=9;
x[7]:=2;
x[8]:=8;
x[9]:=9;
a[0]:=0;
a[1]:=1;
a[2]:=7;
a[3]:=0;
a[4]:=4;
a[5]:=9;
a[6]:=5;
a[7]:=2;
a[8]:=9;
a[9]:=8;
read(f,t);
for i:=1 to t do begin
  read(f,n);
  c:=n mod 10;
  m:=n div 10;
 if m mod 2<>0 then begin
 y:=(m+1) div 2;
 u:=m-y;


  uc:=y*x[9]+u*a[9];
  uc:=uc+a[c];
  uc:=uc mod 10;
 end
                else  begin
   y:=m div 2;
   u:=y;

  uc:=y*x[9]+u*a[9];
  uc:=uc+x[c];
  uc:=uc mod 10;
end;

writeln(g,uc);




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