Составив программу, вычеслите значение функции y=1/x.
Var
x:intenger;
y:real;
begin
readln(x);
y:=1/x;
writeln(y);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var
x:intenger;
y:real;
begin
readln(x);
y:=1/x;
writeln(y);
end.