Question

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

Answer 1

var n: integer;
begin
write('Число = ');
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

Answer 2

что такое Odd

Answer 3

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

Answer 4

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

Answer 5

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 ');