Cod sursa(job #771701)

Utilizator t.g.g.tt.g.g.t t.g.g.t Data 26 iulie 2012 20:48:28
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.87 kb
var a:array[0..100]of longint; b:array[0..9,0..4]of integer; i,n,n2:longint; s,s2:string;
begin
b[0,0]:=1; b[0,1]:=0; b[1,0]:=1; b[1,1]:=1; b[2,0]:=4; b[2,1]:=2; b[2,2]:=4; b[2,3]:=8;b[2,4]:=6;b[3,0]:=4;b[3,1]:=3;b[3,2]:=9;b[3,3]:=7;b[3,4]:=1;b[4,0]:=2;b[4,1]:=4;b[4,2]:=6;b[5,0]:=1;b[5,1]:=5;b[6,0]:=1;b[6,1]:=6;b[7,0]:=4;b[7,1]:=7;b[7,2]:=9;
b[7,3]:=3;b[7,4]:=1;b[8,0]:=4;b[8,1]:=8;b[8,2]:=4;b[8,3]:=2;b[8,4]:=6;b[9,0]:=2;b[9,1]:=9;b[9,2]:=1;
a[0]:=0;
for i:=1 to 100 do begin n:=i mod 10; if i mod b[n,0]=0 then n2:=b[n,0] else n2:=i mod b[n,0]; a[i]:=a[i-1]+b[n,n2]; if a[i]>=10 then a[i]:=a[i] mod 10 end;
assign(input,'cifre.in'); reset(input);
readln(n);
assign(output,'cifre.out'); rewrite(output);
n2:=0;s2:='';
for i:=1 to n do begin readln(s); insert(s[length(s)],s2,1); insert(s[length(s)-1],s2,1); val(s2,n2); writeln(a[n2],' ');n2:=0;s2:=''  end;
close(output);
end.