Работа в Паскале. Даны действительное число a, натуральное - вопрос №114581462 от Pro100Brotanich 28.11.2020 19:48

Question

Информатика: Работа в Паскале. Даны действительное число a, натуральное число n. Вычислить: a(a+1)...(a+n-1).

Pro100Brotanich · Answer

var a,s:real; n:integer; begin  writeln( a*(a+1)*...*(a+n-1) );  write( a: ); readln(a);  write( n: ); readln(n);  s:=1;  repeat    s:=s*(a+n-1);    dec(n);  until n=0;  writeln(s); end....