Есть ответ 👍

Склавиатуры вводится три четырехзначных числа найдите сумму нечетных чисел в наименьшем числе (paskal abc)

265
265
Посмотреть ответы 2

Ответы на вопрос:


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 Лады

Популярно: Информатика