Ks
Да
Дарья
на С только
Ал
Алексей
Pascal ABC;
program Ur;
var x:real;
Begin
Write('Введите x');ReadLn(x);
if ((3*x+2)<0) or ((x-2)<0) then WriteLn('При заданном x задача не имеет решения в области действительных чисел')
else WriteLn('Ответ: y='+FloatToStr(sqrt(3*x+2)+sqrt(x-2)));
End.
Похожие вопросы