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

Question

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

Comments

на паскале?

---

Да, на Паскале

Answer 1

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

Comments

"y" не "integer" а "real"

Answer 2

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