profile
Опубликовано 5 лет назад по предмету Информатика от Smolllev

Напишите программы вычисления произведений (x-1)*(x-2)*(x-3)...(x-n).Помогите исправить ошибку,говорят в строке где решение но я не пойму почему.

  1. Ответ
    Ответ дан petyaGavrikov

    var x,p: real; n,i:integer;

    begin

    readln(x,n);

    p:=1;

    for i:=1 to n do p:=p*(x-i);

    writeln('P = ',p:8:5);

    end.

    Пример:

    2.5 5

    P = -1.40625