Question

Вычислить значение выражения 1/(x-15) для любого x.
Сделать в Pascal.

Answer 1

Program z1; 
var x:integer;
      y:real;
begin
Writeln('Введите x');
readln(x);
y:=1/(x-15);
writeln(x:5:2);
readln;
end.