Cod sursa(job #5410)

Utilizator gozmanGrosu Andrei Nicolae gozman Data 12 ianuarie 2007 12:50:50
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.93 kb
program p1;
var a:array[0..9,0..9] of byte;
   f,g:text;
   u,u1,b:byte;
   t,i,j,cr:word;
   n:longint;
   s:string[100];
begin
a[0,0]:=1;
a[0,1]:=0;
a[1,0]:=1;
a[1,1]:=1;
a[2,0]:=4;
a[2,1]:=2;
a[2,2]:=4;
a[2,3]:=8;
a[2,4]:=6;
a[3,0]:=4;
a[3,1]:=3;
a[3,2]:=9;
a[3,3]:=7;
a[3,4]:=1;
a[4,0]:=2;
a[4,1]:=4;
a[4,2]:=6;
a[5,0]:=1;
a[5,1]:=5;
a[6,0]:=1;
a[6,1]:=6;
a[7,0]:=4;
a[7,1]:=7;
a[7,2]:=9;
a[7,3]:=3;
a[7,4]:=1;
a[8,0]:=4;
a[8,1]:=8;
a[8,2]:=4;
a[8,3]:=2;
a[8,4]:=6;
a[9,0]:=2;
a[9,1]:=9;
a[9,2]:=1;
assign(f,'cifra.in');  reset(f);
readln(f,t);
assign(g,'cifra.out'); rewrite(g);
for i:= 1 to t do
begin
     readln(f,n);
     u:=0;
     for j:= 1 to n do
     begin
          u1:=j mod 10;
          b:= j mod a[u1,0];
          if b=0 then cr:=a[u1,a[u1,0]]
                 else cr:= a[u1,b];
          u:=(u+cr) mod 10;
     end;
     writeln(g,u);
end;
     close(f);
     close(g);
end.