Нет перегруженной подпрограммы с таким количеством параметров Power где ошибки? var s, p, x: real; l, m, n: integer; begin for l := m to n do begin p:=p*x/l; s:=s+p end; write('x m n: '); readln(x, m, n); if m > n then begin l:=n; n:=m; m:=l end; s:= 0; p:=power(m - 1); writeln(s) end.

Популярные вопросы в разделе