Одна цифра или буква или пробел это 1 бит
begin
var a := 1234567;
var s := 0;
while a > 0 do
begin
s += Ord(a mod 10 mod 2 = 0);
a := a div 10;
end;
s.Println;
end.
Что сделать то надо ? напиши, прост я хз
При помощи языка мы общаемся и помогает в этом нам словестные описания
Основные
*Создавать новый документа имея при этом шаблоны.
*Возможность работы в нескольких документах.
*Автоматическая проверка орфографии.
*Расширенные возможности по форматированию текста.
*Возможность отправки готового документа.
Дополнительные
<span>*Удобное выделение текстовых фрагментов
*Расширенный буфер обмена;Вставка скриншота
*Улучшение читаемости
*Применение водяного знака
*Повтор последней команды
*Простановка знаков ударения
*Настройка верхней ленты под личные нужды
*Быстрое выделение фрагмента текста</span>