Cod sursa(job #123502)
| Utilizator | Data | 16 ianuarie 2008 11:42:29 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.46 kb |
program cifra;
var T : real;
N,r : longint;
fin,fout : text;
function u(p:integer):integer;
var i,S,j,o : integer;
begin
S := 0;
for i := 1 to p do begin
o := 1;
for j := 1 to i do
o := o * i mod 10;
S := S + o;
end;
u := S;
end;
begin
assign(fin,'cifra.in');
reset(fin);
readln(fin,T);
assign(fout,'cifra.out');
rewrite(fout);
for r := 1 to round(T) do begin
readln(fin,N);
writeln(fout,u(N) mod 10);
end;
close(fin);
close(fout);
end.