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

Ответы 5

  • Языковая возможность писать короче. Пишешь короче - меньше возможность ошибиться.
    • Автор:

      ace45gh
    • 6 лет назад
    • 0
  • спасибо вам большое за помощь
    • Автор:

      melany
    • 6 лет назад
    • 0
  • Пожалуйста, но достаточно кнопки "Спасибо" )))
    • Автор:

      philip
    • 6 лет назад
    • 0
  • уже нажал)
    • Автор:

      mangojoza
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.2, сборка 1427 от 24.04.2017// Внимание! Если программа не работает, обновите версию!begin  var a,b:integer; Read(a,b);  a:=min(a,b);  (var s,var k):=(0,0);  while a>0 do begin    b:=a mod 10;    if b.IsEven then (s,k):=(s+b,k+1);    a:=a div 10    end;  if k>0 then Writeln(s/k:0:3)  else Writeln('В меньшем числе нет четных цифр')end.Пример64372 402693.000
    • Автор:

      cindytsuc
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years