Даны действительное число А и натуральное N. Вычислить P=A*(A-N)*(A-2*N)*...*(A-N*N) с помощью функции.СРОЧНО!!!
Даны действительное число А и натуральное N. Вычислить P=A*(A-N)*(A-2*N)*...*(A-N*N) с помощью функции.СРОЧНО!!!
Гость
Ответ(ы) на вопрос:
Гостьvar N: integer;
A: real;
{ нахождение суммы ряда }
function Sum(A: real; N: integer) : real;
var i: integer;
s: real;
begin
s:=A;
for i:=1 to N do s:=s*(A-i*N);
Result:=s;
end;
{ конец процедуры }
{ основная программа }
begin
write('задайте N: ');
readln(N);
writeln('задайте A: ');
readln(A);
writeln('сумма ряда равна: ',Sum(A,N));
end.
Не нашли ответ?
Похожие вопросы