Лучшие помощники
1 апреля 2023 21:11
863

Нет перегруженной подпрограммы с таким количеством параметров 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.

1 ответ
Посмотреть ответы
Ответ:
добавь вначале
uses math;
и
power содержит 2 параметра. число и его степень
3² это power(3, 2)

и всё заработает.

Объяснение:

0
·
Хороший ответ
3 апреля 2023 21:11
Остались вопросы?
Найти нужный