Question

Напишите пожалуйста программу и блок-схему
А=1+3+5+...+(2n+1)/1*3*5*...*(2n+1)

Answer 1

var a,b,c:real;n,i:integer;beginWrite('Ввидите N='); Readln(n);for i:=1 to N do b:=b+(2*n+1);c:=1;for i:=1 to n do c:=c*(2*n+1);a:=b/c;WritelN('A=',A);end.