Cod sursa(job #1010047)

Utilizator grisa.din.205Grigore Ciobanu grisa.din.205 Data 14 octombrie 2013 10:45:26
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
program cifra;
var i,n,us,up,j,m,ii:longint;
f1,f2:text;
begin
assign(f1,'cifra.in');
assign(f2,'cifra.out');
reset(f1);
rewrite(f2);
readln(f1,m);
for ii:=1 to m do
begin
readln(f1,n);
us:=0;
for i:=1 to n do
begin
up:=1;
for j:=1 to i do
up:=up*i mod 10;
us:=(us+up) mod 10;
end;
writeln(f2,us);
end;
close(f1);
close(f2);
end.