Question

Информатика.Паскаль.(10-11 класс)1 курс. Помогите пожалуйста написать программу с ветвлением по теме "Разработка и отладка программ с ветвлением".

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (x, d) := ReadReal2('Введите x и d:');

 var a := Sqrt(d);

 var y: real;

 if x >= a then y := Sin(x) + a

 else y := Sqrt(x) + a * a;

 y.Print

end.