У 3-х значного числа определить позицию чётные цифр. ЧЕРЕЗ ПАСКАЛЬ!!!

что такое Odd

Проверяет число на четность.

Можно поменять на:

if ((n div 100) mod 2) = 0 then write(' 1 ');if ((n div 10 mod 10) mod 2) = 0 then write(' 2 ');if ((n mod 10) mod 2) = 0 then write(' 3 ');

var n: integer;beginwrite('Число = ');readln(n);write('Позиции четных цифр: ');if not Odd(n div 100) then write(' 1 ');if not Odd(n div 10 mod 10) then write(' 2 ');if not Odd(n mod 10) then write(' 3 ');end.Пример:Число = 834Позиции четных цифр:  1  3