Pagini recente » Cod sursa (job #3261325) | Cod sursa (job #3134612) | Cod sursa (job #1169098) | Cod sursa (job #1574627) | Cod sursa (job #1147295)
program cifra;
var fi,fo:text;
t,i,x,j:longint;
code:integer;
a,sum:array[1..1000] of longint;
s:array[1..1000] of char;
function put(n:integer):longint;
var p:integer;
begin
p:=1;
for i:=1 to n do p:=p*n;
put:=p
end;
function suma(n:integer):longint;
var k:integer;
begin
k:=0;
for i:=1 to n do begin
k:=k+put(i);
end;
suma:=k;
end;
begin
assign(fi,'cifra.in');reset(fi);
assign(fo,'cifra.out');rewrite(fo);
readln(fi,t);
for i:=1 to t do readln(fi,s[i]);
for i:=1 to t do begin
val(s[i],x,code);
a[i]:=x;
end;
for i:=1 to t do
for j:=1 to a[i] do
sum[i]:=suma(j);
for i:=1 to t do
writeln(fo,sum[i] mod 10);
close(fo);
end.