Cod sursa(job #1010043)
| Utilizator |  Grigore Ciobanu grisa.din.205 |
Data | 14 octombrie 2013 10:42:12 |
|---|---|---|---|
| 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.
