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

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

Question

Алекся

25 марта, 21:46

+1

Ответы (1)

Знаете ответ на вопрос?

Конрад · Answer 1

Program funkciya;

var x, y:real;

begin

Readln (x) ;

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

Writeln (y) ;

end.