Pagini recente » Cod sursa (job #706653) | Cod sursa (job #180944) | Cod sursa (job #2633549) | Cod sursa (job #39045) | Cod sursa (job #13852)
Cod sursa(job #13852)
{ problema cifra - infoarena.devnet.ro }
program cifra_infoarena;
type sir=array[1..3000] of longint;
var n:longint;
f,g:text;
ult:byte;
a:sir;
i,t:longint;
procedure citire(var a:sir);
begin
assign(f,'cifra.in'); reset(f);
readln(f,t);
for i:=1 to t do readln(f,a[i]);
close(f);
end;
procedure cifra(n:longint);
var p:longint;
k,i1:longint;
begin
ult:=0;
for i1:=1 to n do begin
p:=1;
for k:=1 to i1 do p:=p*(i1 mod 10);
ult:=ult+(p mod 10);
if ult > 9 then ult:=ult mod 10;
end;
end;
begin
citire(a);
assign(g,'cifra.out'); rewrite(g);
for i:=1 to t do begin
cifra(a[i]);
writeln(g,ult);
end;
close(g);
end.