Cod sursa(job #138398)

Utilizator SILVER_BOY22Dalalau Alexandru SILVER_BOY22 Data 18 februarie 2008 16:19:11
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.7 kb
program cifre;
var i,j,t,p,s,n:longint;
    f,g:text;
begin
      assign(f,'cifra.in');
     assign(g,'cifra.out');
     reset(f);
     rewrite(g);
     readln(f,t);
     s:=0;
     for j:=1 to t do
     begin
          readln(f,n);
          s:=(4*(n div 100)) mod 10;
          p:=0;
          for i:=1 to n mod 100 do
          begin
            case (i mod 4) of
             0: p:=(i mod 10)*(i mod 10)*(i mod 10)*(i mod 10);
             1: p:=(i mod 10);
             2: p:=(i mod 10)*(i mod 10);
             3: p:=(i mod 10)*(i mod 10)*(i mod 10);
            end;
            s:=(s+p) mod 10;
          end;
          writeln(g,s);
     end;
     close(f);
     close(g);
end.