Cod sursa(job #849987)

Utilizator andreiblaj17Andrei Blaj andreiblaj17 Data 7 ianuarie 2013 21:44:40
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.61 kb
var v:array[1..10] of integer;
    f,g:text;
    s:string;
    i,t,nr,a,b,j,l:integer;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);

v[1]:=1; v[2]:=4; v[3]:=7; v[4]:=6; v[5]:=5; v[6]:=6; v[7]:=3; v[8]:=6; v[9]:=9; v[10]:=0;

readln(f,t);

for i:=1 to t do
 begin
  readln(f,s);
  nr:=0;
  l:=length(s);
  if l<>1 then begin
                a:=ord(s[l-1])-48;
                b:=ord(s[l])-48;
                nr:=47*a;
               end
          else b:=ord(s[l])-48;
  for j:=1 to b do
   nr:=nr+v[j];
  writeln(g,nr mod 10);
 end;
close(f);
close(g);
end.