Cod sursa(job #561712)

Utilizator palatyimAtyim Paul palatyim Data 21 martie 2011 12:07:47
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.52 kb
program cifra;
var n,j,k,x :longint;
var f,ff :text;
var a : array[1..30000] of longint;
var i,p,s,m :longint;
function u(c :longint) : longint;
begin
i:=0;
m:=0;
for i:=1 to c do
begin
p:=1;
s:=0;
repeat
s:=s+1;
p:=p*i;
p:=p mod 10
until s=i;
m:=m+p;
end;
u:=m mod 10;
end;
begin
assign(f,'cifra.in');
reset(f);
readln(f,n);
for k:=1 to n do
begin
readln(f,x);
a[k]:=u(x);
end;
close(f);
assign(ff,'cifra.out');
rewrite(ff);
for j:=1 to n do
begin
writeln(ff,a[j]);
end;
close(ff);
end.