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

Question

Информатика

Нюраша

19 августа, 22:17

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

+1

Ответы (1)

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

Римуля · Answer 1

Var

a, b, n: integer;

sr: real;

begin

sr : = 0;

n : = 0;

read (a, b) ;

if (a > b) then a : = b;

while a > 0 do

begin

if ((a mod 10) mod 2 = 0) then begin

sr : = sr + a mod 10;

n : = n + 1;

end;

a : = a div 10;

end;

write (sr / n) ;

end.