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

Question

Информатика

Лизавета

11 июля, 00:01

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

+2

Ответы (1)

Знаете ответ?

Егуня · Answer 1

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.