Cod sursa(job #706111)

Utilizator ilyeshunorIlyes Hunor ilyeshunor 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.