Блок схема по информатике, хелп 2шт 1. Блок схема произведения цифр четырехзначного числа
2. Блок схема: найти количество четных и нечетных цифр данного натурального числа

var

 a, b, k : integer;

begin

 k := 0;

 write('введите число: ');

 readln(a);

 while a <> 0 do

 begin

   b := a mod 10;

   if b mod 2 = 0 then inc(k);

   a := a div 10

 end;

 writeln('количество четных цифр: ', k)  

end.

Объяснение: