Cod sursa(job #507877)
| Utilizator | Data | 7 decembrie 2010 00:48:34 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.56 kb |
program cifra;
var t,s,i,j,x,aux,cop,k:word;
f,g:text;
begin
assign (f,'cifra.in'); reset (f);
assign (g,'cifra.out'); rewrite (g);
read (f,t);
for i:=1 to t do begin readln (f,x);
s:=0;
for j:=1 to x do begin cop:=j; aux:=1;
for k:=1 to j do aux:=(aux*cop) mod 10;
s:=s+aux;
end;
writeln (g,s mod 10);
end;
close (f);
close (g);
end.
