• Предмет: Информатика
  • Автор: chusovaalya
  • Вопрос задан 2 года назад

Найти среднее арифметическое чисел от
1 до 100, кратных 3.

Ответы

Ответ дал: BobbyFresnel
0

// PascalABC.NET 3.6.3

begin

 (1..100).Where(p -> p mod 3 = 0).Average.Print

end.

Ответ: 51

Вас заинтересует