Сначала банальный код - рабочий, но уже на больших числах будет переполнение переменной факториала.
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>
256 мощность.
7680байт/7680симв
1 байт = 8 бит
2^8= 256
S=63;
1)S:=63+1=64;
x:=1+1=2;
2)S:=64+2=66;
x:=2+1=3;
3) S:=66+3=69;
x:=3+1=4;
4)S:=69+4=73;
x:=4+1=5.
Ответ: S=73
Ответ : б) сетка не является типовой диаграммой