Информатика: решить пример 1 и пример 2

karinka101

13.04.2022 14:33

Информатика

Есть ответ 👍

решить пример 1 и пример 2

254

263

Посмотреть ответы 1

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

Ьвот

Информатика

4,4(17 оценок)

Var a, b, c, sum: integer; function min(x, y: integer): integer; begin if(x > y) then result : = y else result : = x; end; begin sum : = 0; read(a, b, c); a : = min(a, min(b, c)); while a > 0 do begin if(a mod 10 mod 2 < > 0) then sum : = sum + a mod 10; a : = a div 10; end; write(sum); end.