Напишите программу вычисления произведений.(Turbo Pascal)(x-1)(x-2)(x-3)...(x-n);
Напишите программу вычисления произведений.(Turbo Pascal)(x-1)(x-2)(x-3)...(x-n);
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program Proizvedenie;
var
x, proizv: real;
n, i: integer;
begin
proizv := 1;
writeln('Введите значение x:');
readln(x);
writeln('Введите значение n:');
readln(n);
for i := 1 to n do
begin
proizv := proizv * (x - i);
end;
writeln('Произведение равно: ', proizv);
end.