Cod sursa(job #138508)

Utilizator Vlad-andreiVlad Fisca Vlad-andrei Data 18 februarie 2008 19:00:47
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.67 kb
program cifre;
var f,g:text;
    s,p,i,t,j,n:word;
begin
     assign(f,'cifre.in');
     assign(g,'cifre.out');
     reset(f);
     rewrite(g);
     readln(f,t);
     s:=0;
     for i:=1 to t do
     begin
          readln(f,n);
          s:=(4*(n div 20))mod 10;
          for j:=1 to n mod 100 do
          begin
               case (j mod 4) of
               0:p:=(j mod 10)*(j mod 10)*(j mod 10)*(j mod 10);
               1:p:=(j mod 10);
               2:p:=(j mod 10)*(j mod 10);
               3:p:=(j mod 10)*(j mod 10)*(j mod 10);
               end;
          s:=(s+p) mod 10;
     end;
     writeln(g,s);
     end;
     close(f);
     close(g);
end.