Cod sursa(job #137964)

Utilizator Vlad-andreiVlad Fisca Vlad-andrei Data 17 februarie 2008 18:26:49
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.64 kb
program cifre;
var f,g:text;
    s,p,i,t,n,j:word;
begin
     assign(f,'cifre.in');
     assign(g,'cifre.out');
     reset(f);
     rewrite(g);
     read(f,t);
     s:=0;
     p:=1;
     for i:=1 to t do
     begin
          read(f,n);
          for j:=1 to n 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.