Задание:
Дано действительное число a и натуральное число n. Вычислить: a*(a+1)*… *(a+n-1);
Решение:
Program Funct1; Uses Crt; var a,rez: real; i,n: integer; begin clrscr; write ('Введите а: '); readln (a); write ('Введите n: '); readln (a); rez: =a; for i: =1 to n-1 do rez: =rez*(a+i); writeln ('Произведение ряда: ',rez: 5:5); readkey; end.
Знаете другой ответ?