Cod sursa(job #706111)
Utilizator | Data | 5 martie 2012 16:55:52 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.41 kb |
var f,g:text;
t,n,i,j,k,s:longint;
x:array[1..30000] of integer;
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);
k:=1;
s:=0;
for j:=1 to n do
k:=k*n;
x[i]:=k;
end;
for i:=1 to t do begin
for j:=1 to i do
s:=s+x[j];
writeln(g,s mod 10);
s:=0;
end;
close(g);
end.