Задать вопрос
17 мая, 07:36

Вычислить: P=a (a-n) (a-2n) * ... * (a-n2)

+3
Ответы (1)
  1. 17 мая, 10:54
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Вычислить: P=a (a-n) (a-2n) * ... * (a-n2) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Три десятичных числа (100,102,91) перевести в восьмеричную систему вычислить их сумму и перевести в десятичную систему вычислить их сумму и перевести в дестяричную Три двоичных числа перевести в 16-ую систему, вычислить их сумму и перевести в
Ответы (1)
Даны два числа. Вычислить их сумму. Если она превышает 1000, то вычислить и вывести квадрат. первого числа, иначе-вычислить и вывести куб второго числа
Ответы (1)
Задача№1. Найти произведение цифр заданного трехзначного числа. Задача№2. Вычислить выражение y=cos (1) + cos (1/2) + cos (1/3) + ... + cos (1/n), где n вводить с клавиатуры. Задача№3. Даны действительные числа а1, а2 ... а n.
Ответы (1)
1) Три десятичных числа (100,102,91) перевести в восьмеричную систему вычислить их сумму и перевести в десятичную систему вычислить их сумму и перевести в десятичную.
Ответы (1)
Язык - Pascal 1) Есть ли в нем функция котангенса, или надо выражать самому, как 1/tan? 2) Можно ли эту строчку кода как-то упростить? if (d 1) and (d 2) and (d 3) and (d 4) and (d 5) and (d 6) and (d 7) and (d9) and (d10) and (d11) then
Ответы (2)