Помогите!!! Информатика!!! Вывести ** экран все цифры кратные 2 в заданном числе 2305619

Question

Помогите!!! Информатика!!!
Вывести на экран все цифры кратные 2 в заданном числе 2305619

Answer 1

Разбей число на разряды и осуществи проверку кратности цифр на 2 

Comments

d:= (x div 1000) mod 10'

---

if d mod 2=0 then writeln (' цифра', d , 'кратна 2');

---

f:= (x div 10000) mod 10;

---

if f mod 2=0 then writeln (' цифра', f , 'кратна 2');

---

e:=(x div 100000) mod 10;

---

if e mod 2=0 then writeln (' цифра', e , 'кратна 2');

---

z:=(x div 1000000) mod 10;

---

if z mod 2=0 then writeln (' цифра', z , 'кратна 2');

---

end.

---

Только в разделе описаний запиши var x,b,c,d,e,f,z:integer;