Составив программу, вычеслите значение функции y=1/x.

Question

Эдит

22 апреля, 17:52

+5

Ответы (2)

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

Митуля · Answer 1

Var x, y:integer;

begin

writeln ('введите x') ;

readln (x) ;

y:=1/x;

writeln (y) ;

end.

если я правильно понял суть задания то так

Лукич · Answer 2

Var

x:intenger;

y:real;

begin

readln (x) ;

y:=1/x;

writeln (y) ;

end.