Var n,k : Integer;
Begin
Readln(n);
k:=0;
Repeat
If n mod 10 = 0 then k:=k+1;
n:=n div 10;
Until n<=0;
Writeln('В этом числе нулей: ',k);
end.
1) 346 (8) - 64 (8) = 262 (8)
2) 1022 (16) - 5А (16) = FC8 (16)
3) 24ECI * 22 = 4E758 (16)
Из А в Б ведет 2 пути
из Б в В ведет 2+2=4 пути
из А в В ведет 2 пути
4+2=6
Ответ:6 путей
<span>программе Excel поиск 25 в количество</span>