Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var (b,x):=ReadReal2('Введите b и х:');
var v:real;
if x<2 then v:=b*b-Sqrt(x-b)
else v:=(b*x-1)/Ln(x-b);
Writeln(v)
end.
Внимание! Если программа не работает, обновите версию!
begin
var (b,x):=ReadReal2('Введите b и х:');
var v:real;
if x<2 then v:=b*b-Sqrt(x-b)
else v:=(b*x-1)/Ln(x-b);
Writeln(v)
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад