Помогите пожалуйста в среде паскаль решить такую задачу:
посчитать сколько нечетных цифр в н - значном числе! (паскаль)

1

Ответы и объяснения

2015-08-08T08:23:58+00:00
Program help;
var n, i, a:integer;
begin
i:=0;
    read (n);
    while n<>0 do begin
    a:=n mod 10;
       if (a mod 2)<>0 then
        i:=i+1;
    n:=n div 10
    end;
    write(i);
end.