Cod sursa(job #110795)

Utilizator alexrusuRusu Alexandru alexrusu Data 27 noiembrie 2007 19:59:19
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.54 kb
program cifra;
var t,i,k:integer;
    x,y:double;
    s,p,j:byte;
    c:0..9;
    f,g:text;
begin
  assign(f,'cifra.in');
  assign(g,'cifra.out');
  reset(f);
  rewrite(g);
  readln(f,t);
  for i:=1 to t do
  begin
    readln(f,x);
    s:=1;
    while x>1 do
    begin
      p:= trunc(frac(x/100)*100) mod 4;
      c:= trunc(frac(x/10)*10);
      k:= 1;
      if p=0 then p:=4;
      for j:=1 to p do
        k:=k*c;
      s:=(s+k) mod 10;
      x := x-1;
    end;
    writeln(g,s);
  end;
  close(f);
  close(g);
end.