Cod sursa(job #287551)

Utilizator udrescu_cristiUdrescu Cristian udrescu_cristi Data 24 martie 2009 22:39:23
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.8 kb
type matrice=array[1..9,1..9]of integer;
var n,i,j,k,m,s:longint;
    f,g:text;
    a:matrice;
begin
a[1,1]:=1;a[1,2]:=2;a[1,3]:=3;a[1,4]:=4;a[1,5]:=5;a[1,6]:=6;a[1,7]:=7;a[1,8]:=8;a[1,9]:=9;
a[2,1]:=1;a[2,2]:=4;a[2,3]:=9;a[2,4]:=6;a[2,5]:=5;a[2,6]:=6;a[2,7]:=9;a[2,8]:=4;a[2,9]:=1;
a[3,1]:=1;a[3,2]:=8;a[3,3]:=7;a[3,4]:=4;a[3,5]:=5;a[3,6]:=6;a[3,7]:=3;a[3,8]:=2;a[3,9]:=9;
a[4,1]:=1;a[4,2]:=6;a[4,3]:=1;a[4,4]:=6;a[4,5]:=5;a[4,6]:=6;a[4,7]:=1;a[4,8]:=6;a[4,9]:=1;
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
read(f,m);
for j:=1 to m  do begin
readln(f,n);
s:=0;
for i:=1 to n do
if i mod 10<>0 then begin
                if i mod 4=0 then k:=4 else k:=i mod 4;
                 s:=(s+a[k,i mod 10])mod 10;
                 end;
writeln(g,s);
end;
close(f);
close(g);
end.