Информатика, опубликовано 2018-08-22 23:34:08 by Гость
Вычислить ср.арифметическое чётных и нечётных цифр введённого числа. Через паскаль.
Ответ оставил Гость
// 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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на