01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 3 лабораторка / задание 2

2.дано целое число n и действительное a. Вычислить:

• Текст программы:

var

i,n: integer;

a,r: real;

begin

r:=1;

write ('n=');

readln (n);

write ('a=');

readln(a);

for i:=0 to n do

begin

r:=r*(a-i*n);

end;

writeln(r);

readln;

end.

• Исходные данные: n=4 and a=1; результат: 3.465000000E+03