N- factorial - это произведение всех чисел от 1 до n. для заданного числа n определите, сколько нулей в конце десятичной записи n - factorial

Нужно  посчитать  количество  5  в  разложении.  причем  нужно  учесть,  что  25  =  5*5  -  это  две  5,  а  125  =  5*5*5  -  это  три  5,  и  так  далее. begin k  : = 0; for  i=1  to  n  do begin         a : = i;         while a  >   0  do         begin         if a mod 5 = 0 then               begin                   k : = k+1;                     a  : =  a/5;                 end;                 else a : = 0;         end; end; writeln  (k); end. проверь.  25!   должен  заканчиваться 6  нулями.

#include< iostream> using namespace std; int main(){    int a,q=0,b=1,r;     cin> > a;     for(int i=1; i< =a; i++)    b*=i;     r=b;       while(r! =0)    {if(r%10==0) q++;     else {cout< < q; break; }    r=r/10; }    return 0; }

№1  var s,v,t,a: real;   begin  writeln('введите скорость, ускорение и время соотвественно');   read(v,a,t);   s: =v*t+(a*sqr(t))/2;   writeln('расстояние s = ',s);   end. №2 var a,b,c,d,m,n: integer;   begin  writeln('введите ширину и высоту комнаты');   read(a,b);   writeln('введите размеры окна');   read(c,d);   writeln('введите размеры двери');   read(m,n);   writeln('площадь стен для оклеивания обоями = ',a*b-c*d-m*n);   end. №3 var a,b: real;   begin  writeln('введите два числа');   read(a,b);   writeln('среднее арифметическое кубов этих чисел = ',(power(a,3)+power(b,3))/2);   writeln('среднее модулей этих чисел = ',sqrt(abs(a*;   end. №4 var x: real;   begin  writeln('введите ребро куба');   read(x);   writeln('площадь грани = ',sqr(x));   writeln('площадь полной поверхности = ',6*sqr(x));   writeln('объем куба = ',power(x,3));   end. №5 var r1,r2: real;   begin  writeln('введите внешний и внутренний радиус');   read(r1,r2);   if r1< r2 then writeln('внешний радиус должен быть больше внутреннего') else  writeln('площадь кольца = ', pi*sqr(r1)-pi*sqr(r2));   end.

Алгоритм приготовления яичницы: 1.начало 2.взять чистую сковороду 3.поставить сковороду на огонь. 4.налить немного масла 5.если масло разогрелось, то перейти к шагу 8 6.подождать 2 минуты 7.перейти к шагу 5. 8. разбить на сковороду 3 яйца 9. уменьшить огонь до минимума 10. посолить яичницу 11. накрыть сковороду крышкой (я люблю прожаренные и сверху) 12. подождать 7 минут. 13. снять сковороду с огня. 14. выложить яичницу на тарелку. 15. положить на тарелку по вкусу майонез, лук, колбасу и проч. 16. приятного аппетита! 17. конец