Cod sursa(job #138006)

Utilizator Vlad-andreiVlad Fisca Vlad-andrei Data 17 februarie 2008 19:24:35
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.66 kb
program cifre;
var f,g:text;
    s,p,i,t,j:word;
    n:longint;
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;
          end;
          s:=(s+p) mod 10;
     writeln(g,s);
     end;
     close(f);
     close(g);
end.