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

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

Задать свой вопрос
1 ответ
// 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 agt;0 do begin
    b:=a mod 10;
    if b.IsEven then (s,k):=(s+b,k+1);
    a:=a div 10
    end;
  if kgt;0 then Writeln(s/k:0:3)
  else Writeln('В меньшем числе нет четных цифр')
end.

Пример
64372 40269
3.000
Albina Ryzhkovskaja
подскажите ещё что означает вот эта строка if k>0 then Writeln(s/k:0:3)
Макс
и вот эта if k>0 then Writeln(s/k:0:3)
Эвелина Нетте
точнеее вот эта (var s,var k):=(0,0);
Игорек Негробов
спасибо для вас огромное за помощь
Лариса
теснее надавил)
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт