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

Question

Павел

9 сентября, 20:52

+1

Ответы (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.