Pagini recente » Cod sursa (job #778420) | Cod sursa (job #1843690) | Cod sursa (job #872254) | Cod sursa (job #1932767) | Cod sursa (job #52992)
Cod sursa(job #52992)
var fi,fo:text;
s,n,i,nr:integer;
ucif:byte;
function calc(x:longint):longint;
var j,pot,i:integer;
begin
s:=0;
for i:=1 to x do
begin
pot:=1;
for j:=1 to i do
pot:=pot*i;
s:=s+pot;
end;
ucif:=s mod 10;
writeln(fo,ucif);
end;
begin
assign(fi,'cifra.in'); reset(fi);
assign(fo,'cifra.out'); rewrite(fo);
readln(fi,n);
for i:=1 to n do
begin readln(fi,nr); calc(nr); end;
close(fi);
close(fo);
end.