Склавиатуры вводится три четырехзначных числа найдите сумму нечетных чисел в наименьшем числе (paskal abc)
265
265
Ответы на вопрос:
Var a, b, c, d, sum, m: integer; begin read(a, b, c, d); m : = min(min(a, b), min(c, d)); while m > 0 do begin if m mod 2 = 1 then sum : = sum + m mod 10; m : = m div 10; end; writeln(sum) end.
Двдвдвлуц цоцлцлцьу улулулц уьулулцлу у улулулу убудут у улулулу улулулу удушу у удушу у у ушу 929218 Цой 82828282 282828 Лады
Популярно: Информатика
-
танюха1235428.02.2021 19:21
-
standartny1ychenik01.04.2020 02:08
-
Qeasdzxcrfv01.07.2022 10:30
-
Sykaper08.03.2020 23:32
-
Cверхъестественное28.11.2022 07:51
-
tanya15045217.04.2023 20:11
-
blowwwwwwww03.06.2021 12:47
-
nikoldasha42124.09.2022 23:45
-
Учениклвл50524.01.2023 13:30
-
maria2701200714.07.2022 08:03