Cod sursa(job #291351)

Utilizator gapdanPopescu George gapdan Data 29 martie 2009 18:19:33
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
program ucif;
var i,n,us,p,e,T:integer; f,g:text;
begin
assign (f,'cifra.in');reset(f);
assign (g,'cifra.out');rewrite(g);
readln(f,T);
us:=0;
for i:=1 to T do begin
    readln(f,n);
 p:=1;
 for e:=1 to n do
  p:= p*i mod 10;
 us:=(us+p) mod 10;
writeln(g,us);
end;
close(f);
close(g);
end.