Чуваки, немогу понять вот это

составьте программу вычесления функции y по формуле y=1+1/x+1/x^2, для которой значение аргумента x введите с клавиатуры. Отладьте программу на следующим примере: x; y; 4; 1,3125.

Question

Сергуна

2 апреля, 12:11

+2

Ответы (1)

Знаете ответ?

Аннюся · Answer 1

Program funkciya;

var x, y:real;

begin

Readln (x) ;

y:=1+1/x+1 / (x*x) ;

Writeln (y) ;

end.