Составте программу вычисления произведения чисел в диапозоне от 1до 10 1*2*3*4**10

Program fac;     var n: integer; function fact(n: integer): integer; begin if n=1 then fact: =1             else fact: =fact(n-1)*n; end; begin write('vvedi chislo: '); // число 10 )) readln(n); n: =fact(n); writeln('otvet: ', n); read; end .

х = log₂ n;

х = log₂ 12 бит.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.