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 - количество знаков после запятой, сколько надо, столько и пишешь. Ноль - не трогать.
1 файл - .pas
2 скрин коду
3 скрин результату
А) 173,3 ≡ 1) 0, 1733*10^3
Б) 1, 733 ≡ 3) 0,1733*10^1
В) 0, 1733 ≡ 2) 0,1733*10^0
Г) 0, 0001733 ≡ 4) 0, 1733*10^-3
Var a,S,P:integer;
Begin
Readln(a);
S:=a*a;
P:=a*4;
writeln('Периметр = ',P,' Площадь = ',S);
readln;
end.