Решить на языке pascal abc.net имеется последовательность натуральных чисел, число элементов которой нечётно. ноль – признак конца и в число элементов последовательности не входит. определите, является ли среднее из чисел последовательности больше среднего арифметического данной последовательности и выдайте полученный результат в виде yes | no.

var a:array [1..100001] of longint; r,k:real; s:longint; begin t:=1;k:=0; while t<>0 do  begin   read(t);   inc(k);   a[k]:=t;   s:=s+t;  end; r:=s/k; if a[k+1 div 2]>r then writeln('Yes') else writeln('No'); end.

n = int(input())

sum = 0

for i in range(n + 1):

sum += i

print(sum)

Объяснение:

Первая строчка считывает число n. Далее заводим переменную sum, в которой будет хранится ответ. Далее запускаем цикл по всем числам от 1 до n. Переменная i будет по очереди становиться каждым этим числом, поэтому на каждом шаге цикла прибавляем ее к ответу. (В коде написано n+1, потому что цикл останавливается, когда встречает число в скобках. То есть когда i станет n+1 цикл завершится). В конце выводим ответ - переменную sum

#include <iostream>

#include <cmath>

int main()

{

   double x, b, a;

std::cout << "W=sqrt(x^2+b)-b^2*sin^3(x+a)/x\n";

std::cout << "y=cos^2x^3-x/sqrt(a^2+b^2)\n";

std::cout << "x: ";

std::cin >> x;

std::cout << "a: ";

std::cin >> a;

std::cout << "b: ";

std::cin >> b;

double W = sqrt(x * x + b) - b * b * pow(sin(x + a), 3) / x;

double y = pow(cos(x * x * x), 2) - x / sqrt(a * a + b * b);

std::cout << "W = " << W << "\n";

std::cout << "y = " << y << "\n";

}