Question

Через Паскаль!!!!срочно нужно (то что красным делать)

Answer 1

Готово! Сделал с оформлением и пояснением.

cba419b4e95d000cc48768e5782b85b0.pas

Answer 2

Вот код (на всякий случай):

Answer 3

Program Digits;
var
a, n, d: integer;
Begin
//Вводим число
write('Введите число: ');
readln(a);

n := 0; //Счётчик чётных цифр

//Проходим по каждой цифре числа
while (a > 0) do
begin
//Берём цифру и проверяем её делимость на 2
d := a mod 10;
if (d mod 2 = 0) then
n := n + 1;
a := a div 10; //Убираем проверенную цифру
end;

//Выводим ответ
write('На 2 делится ', n, ' цифр(-а).');
End.