Вычислить ср.арифметическое чётных и нечётных цифр введённого числа. через паскаль.

NIKESHNELY NIKESHNELY    3   12.08.2019 01:10    0

Ответы
kokosik23 kokosik23  04.10.2020 12:22
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var s:=ReadlnString('->');
  var a:=s.ToCharArray.Select(c->c.ToDigit).Partition(i->i.IsOdd);
  Writeln('Ср.арифм. нечетных: ',a[0].Average:0:4,
    ', ср.арифм. четных: ',a[1].Average:0:4)
end.

Пример:
-> 364063632
Ср.арифм. нечетных: 3.0000, ср.арифм. четных: 4.0000
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика