Напишите программу на языке Паскаль!

С клавиатуры вводится три четырёх значных числа. Найти сумму нечётных цифр в наименьшем числе.

Question

Информатика

Санюра

1 августа, 08:58

Напишите программу на языке Паскаль!

С клавиатуры вводится три четырёх значных числа. Найти сумму нечётных цифр в наименьшем числе.

+3

Ответы (1)

Знаете ответ на вопрос?

Василинка · Answer 1

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.

Напишите программу на языке Паскаль!С клавиатуры вводится три четырёх значных числа. Найти сумму нечётных цифр в наименьшем числе.

Напишите программу на языке Паскаль!

С клавиатуры вводится три четырёх значных числа. Найти сумму нечётных цифр в наименьшем числе.