Вычислить произведение p = a(a-n)(a-2n)...(a-n^2) - Free Pascal

Free Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.78/9:

@mrIvanov 0 / 0 / 0 Регистрация: 14.06.2017 Сообщений: 10

	Вычислить произведение p = a(a-n)(a-2n)...(a-n^2) 14.06.2017, 14:07. Показов 1943. Ответов 1 Метки нет (Все метки) Даны действительное число a и натуральное число n. Вычислить: P=a(a-n)(a-2n)...(a-n²) 0

Лучшие ответы (1)

Сообщение: #10543588

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

14.06.2017, 14:07

Ответы с готовыми решениями:

Вычислить произведение первых нечетных чисел, перемножая их до тех пор, пока из произведение не превысит N
Вычислить произведение первых нечетных чисел, перемножая их до тех пор, пока из произвеение не премысит некоторого числа N, где N -...

Вычислить произведение отрицательных элементов и произведение положительных, и сравнить их
Входные данные записываются в файл input.txt, а выходные в output.txt. По окончании работы над задачей создается ехе-файл. В...

В двухмерном массиве вычислить произведение элементов, произведение индексов столбца и строки которых четное число.
1. Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя генератор случайных чисел. Двухмерный массив...

volvo

Супер-модератор

33184 / 21482 / 8231

Регистрация: 22.10.2011

Сообщений: 36,851

Записей в блоге: 12

14.06.2017, 17:36

Сообщение было отмечено volvo как решение

Решение

Что-то типа этого:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var 
  i, n, s : integer;
  a, p : real;
begin
  readln(a);
  readln(n);
  
  p := 1; s := 0;
  for i := 1 to n do
  begin
    p := p * (a - s);
    s := s + n;
  end;
  
  writeln('p = ', p);
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

14.06.2017, 17:36

Помогаю со студенческими работами здесь

Вычислить произведение минимальных элементов четных столбцов. Где произведение будет кратно 7, поменять местами первую и последнюю строки
Даны массивы A{30,20},B{40,50} - целых чисел. Вычислить произведение минимальных элементов четных столбцов. В том массиве, где произведение...

Вычислить произведение элементов столбца матрицы . Вычислить максимальный элемент
Помогите, нужно вычислить произведение элементов второго столбца матрицы Y(3x4). . Вычислить максимальный элемент матрицы . Как это можно...

Вычислить произведение отрицательных элементов P, затем произведение положительных элементов D
В последовательности действительных чисел есть только положительные и отрицательные элементы. Вычислить произведение отрицательных...

Вычислить произведение отрицательных элементов и произведение положительных элементов последовательности
В последовательности действительных чисел a1,a2,...,an есть только положительные и отрицательные элементы. Вычислить произведение...

В массиве вычислить произведение отрицательных элементов Р1 и произведение положительных элементов Р2
В массиве целых чисел а1, а2,..., an, есть как положительные, так и отрицательные элементы. Вычислить произведение отрицательных элементов...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

Наверх