Даны натуральные числа а, n. Вычислить a (a-n) (a-2n) ... (a-n*n). через паскаль

+3
Ответы (1)
  1. 30 августа, 17:45
    0
    program zz1;

    var

    i, n, a, p: integer; / / задаем переменные целого типа

    begin

    write (' введите первое заданное число a '); / / вводим с клавиатуры первое натуральное число

    read (a);

    write (' введите второе заданное число n '); / / вводим с клавиатуры второе натуральное число

    read (n);

    p:=1; / / задаем начальное значение для произведения

    for i:=0 to n do / / организуем цикл, на n+1 повторений

    p:=p*a-i*n; / / вычисляем значение выражения по заданной формуле

    write (' результат = ', p); / / выводим ответ

    end.
Знаешь ответ на этот вопрос?