Pagini recente » Cod sursa (job #73137) | Cod sursa (job #2848492) | Cod sursa (job #2532652) | Cod sursa (job #1202735) | Cod sursa (job #524320)
Cod sursa(job #524320)
program cifra;
var n, i, t:integer;
nr, c, tb:qword;
{}
function putere(x:qword; n:qword) :qword;
var p:qword;
i:longint;
begin
p:=1;
for i:=1 to n do p:=p*x;
putere:=p;
end;
{}
begin
nr:=0;
tb:=0;
assign(input ,'cifra.in');
assign(output ,'cifra.out');
reset(input);
rewrite(output);
read(t);
for i:=1 to t do begin
readln(tb);
for n:=1 to tb do begin
c:=putere(n, n);
nr:=nr+c;
end;
if nr>9 then begin
nr:=nr mod 10;
end;
writeln(nr);
nr:=0;
end;
close(input);
close(output);
end.