Решения в приложениях. Если будут вопросы - задавайте.
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.
Басня- вид письменной деятельности. Значит правильный ответ
3 текстовая информация
Var x,y,z: Real;
Begin
Write('Enter x: ');
Read(x); Write('Enter y: ');
Read(y); z:=(sqr(x)+3*y-sqrt(z))/(y*sin(z)+exp(abs(x)));
Writeln(z);
<span>end.</span>