Pagini recente » Cod sursa (job #2377455) | Cod sursa (job #1170774) | Cod sursa (job #258306) | Cod sursa (job #1313974) | Cod sursa (job #375952)
Cod sursa(job #375952)
program p324;
var n,x:longint;f,g:text;
v:array[1..1000]of integer;
function ucif(n:longint):byte;
var p,i,j,s,q:longint;
begin
p:=0; s:=0;q:=1;
for i:=1 to n do begin
p:=i;
for j:=1 to i-1 do
p:=(p mod 10)*i;
s:=s+p mod 10;
end;
ucif:=s mod 10; end;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,n);
for x:=1 to n do readln(f,v[x]);
for x:=1 to n do
writeln(g,ucif(v[x]));close(f);close(g);
end.