<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите a,b:');
var x:=(a*b+a)/b;
var y:=Sqrt((Exp(a+b)-Exp(a-b))/x)+Log10(x+a);
Writeln('y=',y)
end.
<u>Пример</u>
Введите a,b: 14.2 3.18
y=1375.95248723222
<span>var
a,b,c: real;
</span>ugol_alpha,ugol_betta,<span>ugol_gamma: real;
begin
write('введите a: ');
readln(a);
write('введите b: ');
readln(b);
write('введите c: ');
readln(c);
</span><span>if a*a+b*b-c*c=0 then writeln('Данные не корректны!') else
<span>begin
</span></span><span>ugol_aplha :=arccos(-((sqr(a)-sqr(b)-sqr(c))/2*b*c));
ugol_betta:=arccos(-((sqr(b)-sqr(a)-sqr(c))/2*a*c));
ugol_gamma:=arccos(-((sqr(c)-sqr(a)-sqr(b))/2*a*b));
</span><span>write('альфа=',ugol_alpha</span>,' бетта=',ugol_betta:0:2,' гамма=',ugol_gamma:0:2);
end;<span>
end.</span>
Письменный документ-текстовый документ, информация которого зафиксирована любым типом письма.