Question

Пожалуйста помогите. Pascal.
(Использование массивов, строк, условных операторов не допускается)
С клавиатуры вводится натуральное шестизначное число. Вывести сумму четных по номеру цифр, если число четное и сумму нечетных по номеру цифр, если число нечетное.
(Цифры нумеруются слева направо, т.е. старший разряд это первая цифра по номеру).

Answer 1

var n: int64;

begin

read(n);

write((n mod 2) * (n div 100000 + n div 1000 mod 10 + n div 10 mod 10) + ((n + 1) mod 2) * (n div 10000 mod 10 + n div 100 mod 10 + n mod 10));

end.

Код здесь: https://ideone.com/GFHNGh