Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Дано натуральное число n найти количество четных не равных нулю цифр этого числа (9 класс )напишите пожалуйста

Ответ оставил Гость

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
var
  i,n,k:integer;
  s:string;
begin
  Write(Введите натуральное число: ); Read(n);
  k:=0;
  Str(n,s);
  for i:=1 to Length(s) do
    if Pos(s[i],2468)>0 then Inc(k);
  Writeln(Количество четных цифр равно ,k)
end.

Тестовое решение:
Введите натуральное число: 3452234
Количество четных цифр равно 4