Вывести сумму чётных по номеру цифр, если число чётное и сумму нечётных если нечётное

@miaeun · Регистрация: 29.10.2021

Студворк — интернет-сервис помощи студентам

Вводится натуральное шестизначное число. Вывести сумму чётных по номеру цифр, если число чётное и сумму нечётных если нечётное. Цифры нумеруются слева направо, т.е. старший разряд это первая цифра по номеру.
Очень важно: использование массивов, строк, условных операторов не допускается. Желательно решить наипростейшим способом, буквально ТОЛЬКО с помощью арифметических действий. Заранее огромное спасибо!!!

@bormant · 29.10.2021, 20:14

Pascal

1 2	ReadLn(n); n:=n div (Ord(Odd(n))+10*Ord(not Odd(n))); WriteLn(n mod 10+n div 100 mod 10+n div 10000 mod 10);

@miaeun 0 / 0 / 0 Регистрация: 29.10.2021 Сообщений: 4
		1
	Вывести сумму чётных по номеру цифр, если число чётное и сумму нечётных если нечётное 29.10.2021, 19:35. Показов 722. Ответов 1 Метки задание, задача, код, олимпиада, паскаль abc.net (Все метки) Вводится натуральное шестизначное число. Вывести сумму чётных по номеру цифр, если число чётное и сумму нечётных если нечётное. Цифры нумеруются слева направо, т.е. старший разряд это первая цифра по номеру. Очень важно: использование массивов, строк, условных операторов не допускается. Желательно решить наипростейшим способом, буквально ТОЛЬКО с помощью арифметических действий. Заранее огромное спасибо!!! 0

	29.10.2021, 20:14

Опции темы