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.
Точность,а то ещё может подойти чёткость.<span><span /></span>
Это ведь скорее математика, а не информатика.
Пусть x - количество синих шаров.
Тогда 2x - количество красных шаров, а 2(2x) - количество зеленых.
x + 2x + 4x = 98, 7x = 98, x = 14
Количество красных шаров = 2*14 = 28
Учитель
строитель
банкир
директор
учёный
президент