Question

Создайте проект для вычисления среднего арифметического положи- тельных чисел, первое из которых равно 100, а каждое следующее меньше предыдущего на заданное положительное число.

Answer 1

PascalABC.NET

Ответ:

• begin
• var n := ReadInteger;
• SeqWhile(100, x->x-n, x->x>0).Average.Print
• end.

Пример работы: