Cod sursa(job #140194)

Utilizator andrici_cezarAndrici Cezar andrici_cezar Data 21 februarie 2008 15:10:22
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.5 kb
   program p12;  
   var f,g:text;  
       c,i,s,k,r,j,p,t,n:longint;
   begin
   assign(f,'cifra.in');reset(f);
   assign(g,'cifra.out');rewrite(g);
   readln(f,t);
   for i:=1 to t do
     begin
     readln(f,n);
     s:=0;
     for k:=1 to n do
      begin
      c:=k mod 10;
      r:= k mod 4;
      if r=0 then r:=4;
      p:=1;
      for j:=1 to r do
          p:=(p*c)mod 10;
      s:=(s+p) mod 10;
      end;
      writeln(g,s);
     end;
   close(g);
   close(f);
   end.