Помогите составить две задачи с div и mod. Относительно легкие

Question

Помогите составить две задачи с div и mod. Относительно легкие

Answer 1

var x, L, M: integer;

begin

   readln(x);

   L := 0;

   M := 0;

   while x > 0 do

   begin

       L := L + 1;

       if x mod 2 = 0 then

           M := M + (x mod 10) div 2;

       x := x div 10;

   end;

   writeln(L);

   writeln(M);

end.

Comments

вот эта программа узнает кол-во цифр и записывает эту инфу в переменную L и если цифра числа деляться на два то это число/2 прибавляется к сумме других чисел делящихся на два в переменную M

---

если нужно могу еще на питоне или c++ написать ее