===== PascalABC.NET =====
begin
var a := ArrRandom(40, -99, 99);
a.Println;
var i := a.IndexMax;
a?[:i]
.Where(p -> p <> 0)
.Aggregate(Biginteger.One, (p, q) -> p * q)
.Print
end.
Напишем программу, которая будет считать сумму всех чисел от 1 до 1000.
<span><span>#include <iostream>
</span>
using namespace std;<span>
int main()
</span>{
int i; // счетчик цикла
int sum = 0; //сумма чисел от 1 до 1000.
setlocale(0, "");
for (i = 1; i <= 1000; i++) // задаем начальное значение 1, конечное 1000 и задаем шаг цикла - 1.
{
sum = sum + i;
}
cout << "Сумма чисел от 1 до 1000 = " << sum <<
endl;
return 0;
}</span>
образуются пары родителей:
655-861 (1 реб) подходит
323-354 (1 реб) не подходит
293-238 (1 реб) не подходит
654-960 (2 реб) подходит
941-365 (2реб) не подходит
1+2=3
a = []
k = int(input())
n = k * 2 - 1
a.append(1)
for i in range(1, k):
a.append(a[i - 1] + 1)
for i in range(k, n):
a.append(a[i - 1] - 1)
print(" ".join(map(str, a)))