Дано натуральное число. определить количество четных цифр в нем. составное условие и более одного неполного условного оператора не использовать.(паскаль)

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.

буфер обмена,перетаскивание,сохранение в файл

текст: happy new year, dear содержит 30 символов. при кодировании текста с acsii каждый символ кодиреутся 8 битами или 1 байтом, следовательно

30 символов = 30 байт или  30 * 8 = 240 бит