Cod sursa(job #123632)

Utilizator free2infiltrateNezbeda Harald free2infiltrate Data 16 ianuarie 2008 20:50:40
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.47 kb
program cifra;
var N,T,S,r : real;
    i,k : integer;
    V : array [1..100] of real;
    fin,fout : text;
begin
writeln;

assign(fin,'cifra.in');
reset(fin);
readln(fin,T);
assign(fout,'cifra.out');
rewrite(fout);
for i := 1 to round(T) do begin
read(fin,N);

S := 0;
for i := 1 to round(N) do begin
r := 1;
for k := 1 to i do begin
r := r*i;
r := frac(r/10)*10;
end;
S := frac((S+r)/10)*10;
end;
writeln(fout,S:1:0);
end;
close(fin);
close(fout);
end.