Question

дано число х . Составьте программу, которая находит значение корень х+1

Answer 1

var y,x:real;
begin
readln(x);
y:=sqrt(x+1);
writeln(y);
end.

Answer 2

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
write(sqrt(x+1));
end.