Pagini recente » Cod sursa (job #2714459) | Cod sursa (job #408955) | Cod sursa (job #3252042) | Cod sursa (job #919258) | Cod sursa (job #52993)
Cod sursa(job #52993)
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.