Цитата:
Сообщение от shrek=)
Я думаю если что-то не правильно меня поправят.
|
Не, и ошибок много, и некрасиво: путано и сложно. Зачем? Так, по-моему, проще:
Код:
var
a,b,Z:real;
function Y(t:real):real;
begin
Y:=t*sqrt(1+sqr(t));
end;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
Z:=ln(1+Y(a))/Y(b);
writeln ('Z= ',Z);
readln;
end.