Объяснение:
var x,y:real;
begin
readln (x);
y:= (sqrt(1+abs(x))/(1+sqr(x)));
writeln (y);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу для программирования с блок схемы на языке паскаль
Объяснение:
var x,y:real;
begin
readln (x);
y:= (sqrt(1+abs(x))/(1+sqr(x)));
writeln (y);
end.