Помогите, пожалуйста Составьте программу в паскале для вычисления квадратного корня из х
Answers & Comments
SolarSon
Var x: real; begin read(x); if (x>=0) then begin x:=sqrt(x); writeln(x) end else writeln('No'); // Здесь вроде как No, потому что комплексное число в паскале можно составлять исключительно через строки, не думаю, что потребуется. readln() end.
Answers & Comments
begin
read(x);
if (x>=0) then begin
x:=sqrt(x);
writeln(x)
end
else writeln('No'); // Здесь вроде как No, потому что комплексное число в паскале можно составлять исключительно через строки, не думаю, что потребуется.
readln()
end.