Pagini recente » Cod sursa (job #3351421) | Diferente pentru problema/keymess intre reviziile 16 si 17 | Cod sursa (job #885321) | Cod sursa (job #1110157) | Cod sursa (job #159562)
Cod sursa(job #159562)
var n,m,t,i:integer;
f,g:text;
function p(n,m:integer):longint;
begin
if m=0 then p:=1
else p:=n*p(n,m-1);
end;
function suma (n:integer):longint;
begin
if n=0 then suma:=0
else suma:=p(n,n)+suma(n-1);
end;
begin
assign (f,'cifra.in');
assign (g,'cifra.out');
reset (f);
readln (f,t);
rewrite (g);
for i:=1 to t do begin
readln (f,n); writeln (g,suma(n) mod 10);
end;
close (f);
close (g);
end.