Войти Регистрация Спроси ai-bota

Вычислить: p=a(a-n) (a-2n)…(a-n2)

Ответ:

Akhmed2387

04.10.2020 17:16

Var
a, p:real;
n, i:integer;
begin
write('a = ');
readln(a);
write('n = ');
readln(n);
p := a;
for i := 1 to n do
p := p * (a - i * n);
writeln('p = ', p);
readln;
end.

0,0(0 оценок)

Популярные вопросы: Информатика

Маша270902

29.10.2022 12:37

Запиши верный ответ. 33792 кбайт = мбайт...

ИльяБлажков

29.10.2022 12:37

Паскаль напишите программу, содержащую процедуру print, которая выводит последовательность: aababcabcd abc xyz...

spring004

24.09.2021 08:29

Сделайте вывод каким интернет магазином вы пользуетесь и почему...

karisha119

31.08.2021 18:28

Какое значение получит переменная y после выполнения алгоритма? x := 3 y := 3 ∗ x y := y + 3 y := y ∗ x y := y + 4 y := y ∗ x y := y + 5...

Minasyan99

20.03.2020 22:20

Даны 4 целых числа, записанных в различных системах счисления : 3210, fa 16, 2348, 10227 10. сколько среди них чисел, двоичная запись которых содержит ровно 6 едениц?...

2880905

18.02.2020 06:44

Кроссворд на тему здоровый образ жизни...

nikitos196

18.01.2021 20:20

Кто умеет надо! Отдаю все последние быллы Создайте трассировочную таблицу a:=9 b:= 45 diva b:= b*10 a:= b mod4+3...

09alan

01.05.2021 04:10

Решить задачу через Pascal ABC. Напишите программу в pascal которая будет решать эту задачу....

илья1899

02.04.2023 07:32

Ввести з клавіатури N цілих чисел та ціле число К (числа вводяться із клавіатури із відповідними додатковими повідомленнями). Знайти середнє арифметичне всіх чисел, крім елемента...

natalichexova

06.11.2021 03:30

Что обладает большей энергией – утюг или нагретая до той же температуры печка? Почему?...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку