Cod sursa(job #2183819)
| Utilizator |  RosuVlad fetelenebune |
Data | 23 martie 2018 14:46:58 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.36 kb |
var
n,t,i:integer;
f,g:text;
procedure fi( var x:longint);
var
s,r,k,i:integer;
begin
s:=0;
for i:=1 to x do begin
r:=1;
for k:=1 to i do
r:=i*r;
s:=s+r;
end;
x:=s mod 10;
end;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
read(f,t);
for i:=1 to t do begin
read(f,n);
fi(n);
write(g,n);
end;
end.
