Напишите пожалуйста программку в паскале(фотка ниже)

Напишите пожалуйста программку в паскале(фотка ниже)

Задать свой вопрос
1 ответ
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var (b,x):=ReadReal2('Введите b и х:');
  var v:real;
  if xlt;2 then v:=b*b-Sqrt(x-b)
  else v:=(b*x-1)/Ln(x-b);
  Writeln(v)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт