Cod sursa(job #96354)

Utilizator juniorOvidiu Rosca junior Data 1 noiembrie 2007 08:49:19
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.66 kb
var
	i, t : integer;
  v, p, e, l : byte;
  a : array [0..100] of byte;
  fi, fo : text;
  n : string;
begin
	assign(fi,'cifra.in'); reset(fi);
	assign(fo,'cifra.out'); rewrite(fo);
	for i := 1 to 100 do
  	begin
  		p := 1;
      for e := 1 to i do
      	p := p*i mod 10;
      a[i] := (a[i-1]+p) mod 10;
    end;
  a[0] := a[100]; // Ca sa folosim indicii de la 0 la 99.
  readln(fi,t);
  for i := 1 to t do
  	begin
    	readln(fi,n);
      l := length(n);
      if l = 1 then
      	v := ord(n[l])-ord('0')
      else
      	v := (ord(n[l-1])-ord('0'))*10+ord(n[l])-ord('0');
      writeln(fo,a[v]);
    end;
  close(fi); close(fo);
end.