Question

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

Answer 1

var
x:intenger;
y:real;
begin
readln(x);
y:=1/x;
writeln(y);
end.

Answer 2

var x,y:integer;
begin
writeln('введите x');
readln(x);
y:=1/x;
writeln(y);
end.
если я правильно понял суть задания то так