Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дано действительное число 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.