Cod sursa(job #68459)

Utilizator mlazariLazari Mihai mlazari Data 28 iunie 2007 00:26:43
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.87 kb
Program Cifra;
const c : array[0..19] of integer=(0,1,4,7,6,5,6,3,6,9,0,1,6,3,6,5,6,7,4,9);
var Intrare,Iesire : text;
    T : integer;
    A : array[0..99] of integer;

procedure DeschideFisiere;
begin
  assign(Intrare,'cifra.in');
  assign(Iesire,'cifra.out');
  reset(Intrare);
  rewrite(Iesire);
  readln(Intrare,T);
end;

procedure InchideFisiere;
begin
  close(Intrare);
  close(Iesire);
end;

procedure Init;
var i : integer;
begin
  A[0]:=0;
  for i:=1 to 99 do A[i]:=(A[i-1]+c[i mod 20]) mod 10;
end;

procedure Calculeaza;
var i,l : integer;
    s : string[100];
begin
  Init;
  for i:=1 to T do
   begin
     readln(Intrare,s);
     l:=length(s);
     if l=1 then writeln(Iesire,A[ord(s[1])-48])
      else writeln(Iesire,A[10*(ord(s[l-1])-48)+ord(s[l])-48]);
   end;
end;

begin
  DeschideFisiere;
  Calculeaza;
  InchideFisiere;
end.