Пожалуйста помогите. Pascal.
(Использование массивов, строк, условных операторов не допускается)
С клавиатуры вводится натуральное шестизначное число. Вывести сумму четных по номеру цифр, если число четное и сумму нечетных по номеру цифр, если число нечетное.
(Цифры нумеруются слева направо, т.е. старший разряд это первая цифра по номеру).
(Использование массивов, строк, условных операторов не допускается)
С клавиатуры вводится натуральное шестизначное число. Вывести сумму четных по номеру цифр, если число четное и сумму нечетных по номеру цифр, если число нечетное.
(Цифры нумеруются слева направо, т.е. старший разряд это первая цифра по номеру).
More Questions From This User See All
Answers & Comments
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