Умова: При даному значенні X обчислити:
Для розв'язання цієї задачі необхідно пам'ятати, що не можна знайти квадратний корінь з від'ємного числа.
Текст програми:
Program Р4 ;
Uses crt;
Var X, Rezultat : real;
Begin
Clrscr ; {Очищення екрану)
Write ( 'Введіть значення X: ');
Readln (X) ;
If (X>=1) and (X*X*X-sqrt(X-l)>=0) Then begin
Rezultat:=sqrt(X*X*Xsqrt(X-l) ) ;
Writeln (‘Rezultat=’, Rezultat: 8: 2) ;
end Else
Writeln ( 'Обчислення неможливі- — від'ємний підкореневий вираз!') ;
Readkey ; {Затримка зображення на екрані до натискання будь-якої клавіші)
End.
