Lasazafep
6 год назад
Вычислить ср.арифметическое чётных и нечётных цифр введённого числа. Через паскаль.
ОТВЕТЫ
Кутузов
Jul 26, 2019
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var s:=ReadlnString(-gt;);
var a:=s.ToCharArray.Select(c-gt;c.ToDigit).Partition(i-gt;i.IsOdd);
Writeln(Ср.арифм. нечетных: ,a[0].Average:0:4,
, ср.арифм. четных: ,a[1].Average:0:4)
end.
Пример:
-gt; 364063632
Ср.арифм. нечетных: 3.0000, ср.арифм. четных: 4.0000
begin
var s:=ReadlnString(-gt;);
var a:=s.ToCharArray.Select(c-gt;c.ToDigit).Partition(i-gt;i.IsOdd);
Writeln(Ср.арифм. нечетных: ,a[0].Average:0:4,
, ср.арифм. четных: ,a[1].Average:0:4)
end.
Пример:
-gt; 364063632
Ср.арифм. нечетных: 3.0000, ср.арифм. четных: 4.0000
18
Смежные вопросы:
