Вдается количество нулей в конце результата функции factorial(n требуется вычислить минимальное число n. определение factorial(a) = a! = (a-1) ! * a = 1 * 2 * 3 * * (a-1) * a 0! = 1

В3 пункте непонятно. "чему равна температура за первую половину сентября? " средняя температура? половина сентября? в и так прдставлен массив половины сентября - с 1 по 15 число. uses crt; const n=15; var max,min,i,k: integer; sr: real; a: array[1..n] of integer; begin randomize; for i: =1 to n do begin a[i]: =random(23)-4; write(a[i]: 3); end; writeln; max: =-4; for i: =1 to n do if a[i]> max then begin max: =a[i]; k: =i; end; writeln('a)',k,' day ',max,'temperature'); min: =19; for i: =1 to n do if a[i]< min then begin min: =a[i]; k: =i; end; writeln('a)',k,' day ',min,'temperature'); sr: =0; for i: =1 to n do sr: =a[i]+sr; sr: =sr/n; writeln('средняя температура за половину сентября ',sr); k: =0; for i: =1 to n do if a[i]< sr then begin inc(k); writeln(i,'сентября'); end; writeln(k); end.

1.vart,vk,vt: real; beginwriteln('введите скорость катера (vk) и скорость течения реки (vt) в км/ч: '); read(vk,vt); writeln('введите время (t) в часах: '); read(t); writeln('катер за ',t,'ч. пройдет ',t*(vk+vt),' км'); end.2.varn,x: real; beginwriteln('введите кол-во кактусов: '); read(x); writeln('сколько кактусов было побрито? '); read(n); if (x - n) < x/2 then writeln('гладких кактусов больше.'); if (x - n) = x/2 then writeln('небритых и гладких поровну.'); if (x - n) > x/2 then writeln('небритых кактусов больше.'); end.