Для этой задачи нужно знать что:
0 + 0 = 0
0 + 1 = 1
1 + 0 = 1
1 + 1 = 10
В итоге получаем
1000000
Var
N: integer;
s: string;
i,c: byte;
begin
ReadLn(N);
Str(N,s);
c:=0;
for i:=1 to Length(s) do
if s[i] in ['0','2','4','6','8'] then
Inc(c);
WriteLn(c);
end.
Оперативная память
она быстрее чем обычная но энергозависимая то есть с неё стираются все данные при остановки подачи тока