Составте программу вычисления произведения чисел в диапозоне от 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 .

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

 

writeln(min);

writeln(kol_nol);

end;