Архипп 24 октября 2019 в 07:22
Помогите составить программу на паскаль
Помогите составить программу на паскаль
Var
x:real;
begin
Write(x=); Read(x);
Writeln((Sqrt(x+1)+Sqrt(x-1))/(2*Sqrt(x*Abs(x-5))))
end.
Пример решения
x=3.14
0.723628196208361
x:real;
begin
Write(x=); Read(x);
Writeln((Sqrt(x+1)+Sqrt(x-1))/(2*Sqrt(x*Abs(x-5))))
end.
Пример решения
x=3.14
0.723628196208361
Компьютеры и вычисления
266
0
Для комментирования необходимо зарегистрироваться на сайте