Программа вкратце. Если посещал уроки то сможешь ее написать чтоб работала. В условии задачи ошибка, наверное вместо - написал плюс. y = sqrt(х+5). если x>0. пусть здесь будет так: у= sqrt(5-х). если x<0
Program radical; var x,y:integer; Begin readln(x); if ((x+5) >= 0) and ((5-х) >=0)) then begin { проверка чтобы не-было меньше нуля } if (x>0) then y = sqrt(x+5); else if (x<0) then y = sqrt(5-x); writeln('результат=', y);
end else writeln("нельзя извлечь корень из отрицательного числа");
