Cod sursa(job #254858)

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