Cod sursa(job #254873)

Utilizator Teodor94Teodor Plop Teodor94 Data 7 februarie 2009 22:10:25
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.65 kb
var f,g:text;
    t,i,j,d,p,x:longint;
    a:array[0..30000] of longint;
    s,s1:string;
    err:integer;
begin
  assign(f,'cifra.in'); reset(f);
  assign(g,'cifra.out'); rewrite(g);
  readln(f,t);
  a[0]:=0;
  for i:=1 to 99 do
    begin
      p:=1;
      d:=i mod 4;
      if d=0 then d:=4;
      for j:=1 to d do p:=p*(i mod 10);
      a[i]:=(a[i-1]+p) mod 10;
    end;
  for i:=1 to t do
    begin
      readln(f,s);
      if length(s)=1 then val(s[1],x,err)
                     else
      begin
        s1:=s[length(s)-1]+s[length(s)];
        val(s1,x,err);
      end;
      writeln(g,a[x]);
    end;
  close(f); close(g);
end.