Question

Найти значений функции у=2/(х+1).Составить программу на языке Паскаль.Пожалуйста,помогите !

Answer 1

program qq;
uses crt;
var x: integer; y: real;
begin
write('Введите число ');
read(x);
y:=2/(x+1);
writeln('Ответ, полученный после выполнения операции равен ', y);
end.