// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; var m:=Readinteger('Что ищем?'); var k:=a.FindAll(x->x=m).Count; Writeln('Найдено таких элементов- ',k); if k>0 then Writeln('Номер первого такого элемента- ', a.FindIndex(x->x=m)+1) end.
Пример n= 17 -46 33 -9 -22 14 -46 -6 -3 -7 -18 46 42 -40 -40 0 29 -9 Что ищем? -9 Найдено таких элементов- 2 Номер первого такого элемента- 3
1) Считываем n и просто в цикле по k от 1 до n прибавляем к текущей сумме новое слагаемое k²:
Код (Python 3):
n = int(input())
s = 0
for k in range(1, n + 1):
s += k ** 2
print(s)
Пример ввода:
3
Пример вывода:
14
2) Аналогично, только считаем произведение, а не сумму.
Код (Python 3):
n = int(input())
p = 1
for k in range(1, n + 1):
p *= k
print(p)
Пример ввода:
3
Пример вывода:
6
3) Тут соединяем вместе вычисление n! и суммирование.
Код (Python 3):
n = int(input())
p = 1
s = 0
for k in range(1, n + 1):
p *= k
s += p
print(s)
Пример ввода:
3
Пример вывода:
9