Pagini recente » Cod sursa (job #615025) | Cod sursa (job #1734546) | Cod sursa (job #1312087) | Cod sursa (job #2005532) | Cod sursa (job #13845)
Cod sursa(job #13845)
{ 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;
t,i:longint;
{ t1:longint;
time:longint absolute $0:$046C; }
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
{ t1:=time; }
citire(a);
assign(g,'cifra.out'); rewrite(g);
for i:=1 to t do begin
cifra(a[i]);
writeln(g,ult);
end;
close(g);
{ writeln('Timer ', ((time-t1)/18.2):6:2, ' secunde');
readln; }
end.