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

Question

Информатика

Лев

23 марта, 05:59

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

+4

Ответы (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.