begin
Println(1/Sqr(ReadInteger+1))
end.
Примеры:
7
0.015625
-4
0.111111111111111
0
1
-1
Infinity (это означает бесконечность)
program smth;
var x, y : real;
Begin
writeln ('Введите значение x');
readln (x);
y := 1 / sqr(x+1);
if (sqr(x+1) = 0) then
writeln ('Знаменатель = 0')
else
writeln ('Значение y = ', y);
end.
----------------------------------
Или
----------------------------------
program smth;
var x, y : real;
Begin
writeln ('Введите значение x');
readln (x);
if (x <> -1) then
Begin
y := 1 / sqr(x+1);
writeln ('Значение y = ', y)
end
else
writeln ('Знаменатель = 0');
end.
