Реализуйте итерационный вариант алгоритма А. Тома и С. Кука.

1. "школьное" решение //pascalabc.net 3.0, сборка 1064 var   s: string;   i,k: integer; begin   write('введите натуральное число: '); readln(s);   k: =0;   for i: =1 to length(s) do       if s[i]='0' then inc(k);   writeln('количество нулей в записи числа равно ',k) end. пример: введите натуральное число: 13054000230 количество нулей в записи числа равно 5 2. современное решение //pascalabc.net 3.0, сборка 1064 begin   var s: =readstring('введите натуральное число: ');   writeln('количество нулей в запиcи числа равно ',s.where(x-> x='0').count) end. пример: введите натуральное число:   13054000230 количество нулей в записи числа равно 5

1616 может: 16 и 16 получаются, например, из числа 979, 9+7=16 и 7+9=16. ///// 169 может: 16 и 9 из числа 881 //// 163 не может, тк должны быть числа 16 и 3, то есть сумма старшего и среднего разряда = 16, а среднего и младшего =3, что не возможно, ведь каждый разряд может быть в промежутке [0; 9]. //// 1916 не может: должны быть числа 19 и 16, а эти числа не могут превышать 18, тк 9+9=18 //// 1619 не может: аналогично 1916 ///// 316 не может: числа 3 и 16, аналогично чилу 163 //// 916 не может: числа 9 и 16 могут получится из 188, но по условию 9 и 16 не могут стоять в порядке возрастания /// 116 может: числа 11 и 6 из 651. /// надеюсь понятно объяснил