<span>Делишь несколько раз на 10, каждый раз определяешь остаток от деления, если остаток -0, то счетчик + 1</span>
512 и 1818
159, 172, 11,824 не подходят, потому что нужен порядок возрастания
1619,519 тоже не подходят, потому что максимальная сумма цифр может быть 18, а тут 19
Какую скожи мне паже ????
Соответственно количеству букв
11 байт=88 бит
9 байт=72 бит
3 байт=24 бит
26 байт=208 бит
10 байт=80 бит
После "<span> for i := 1 to length(s) do"
</span>Вставь вот это и проверь:
<span>if (s[i] = 'с') then kol:=kol+1;
writeln(kol);
readln
end.</span>