Сначала банальный код - рабочий, но уже на больших числах будет переполнение переменной факториала.
var n, i, fact, ans : integer;
begin
read(n);
fact := 1;
for i := 2 to n do
fact := fact * i;
while (fact mod 10 = 0) do begin
ans := ans + 1;
fact := fact div 10;
end;
writeln(ans);
<span>end.
Теперь более "умный" код, в нём использован тот факт, что простое число p входит в разложение факториала числа N = [N/p] + [N/p^2] + [N/p^3] + ..., где [x] - целая часть числа x.
var n, i, fact, c, pow, ans : integer;
{c - сколько раз входит в разложение числа n! цифра 5}
begin
read(n);
pow := 5;
while (pow <= n) do begin
c += n div pow;
pow := pow * 5;
end;
writeln(c);
<span>end.</span></span>
A) =D3+$A$2
b) =B2+$a$2
$ - это абсолютная ссылка, т.е. если $ стоит перед буквой, то не меняется буква, куда бы ячейку не скопировали, если $ стоит перед цифрой, то не меняется цифра, куда бы ячейку не скопировали. Если $ стоит и перед буквой и перед цифрой, то значения ячейки как бы "заморожены", т.е не меняется ни буква, ни цифра.
Если знака $ нет, то при копировании ячейки влево, меняется буква (увеличивается), вправо - уменьшается. При копировании ячейки вниз увеличивается цифра, на столько значений, на сколько ячеек скопировано. Цифра уменьшается, если копировали ячейку вверх.
Var s:string;
begin
s:='тестирование';
s:=s[8]+s[9]+s[1]+s[9];
writeln(s);
<span>end.</span>
7 бит, 128=2^7 128 это 2 в седьмой степени
