вычислить через оператор White
var
l,x,sum:real;
i:integer;
begin
write (L = );
readln(l);
write (X = );
readln(x);
i:=1;
sum:=0;
while i<=101 do
begin
sum:=sum+exp((x+i)*ln(l))/i;
i:=i+2;
end;
writeln (Summa: ,sum);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
