Ответы
Ответ дал:
1
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 - количество знаков после запятой, сколько надо, столько и пишешь. Ноль - не трогать.
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 - количество знаков после запятой, сколько надо, столько и пишешь. Ноль - не трогать.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад