Var x, y: real; begin readln(x); x:=x-4; if (x<0) then writeln('Error') else writeln(sqrt(x):0:5); readln end. Примечания: (sqrt(x):0:5); - 5 - количество знаков после запятой, сколько надо, столько и пишешь. Ноль - не трогать.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
