Question

Решите задачу на Паскале

Answer 1

Program n_1;

var x, y:double;

begin

   readln(x);

   if (x>=0) and (x<>5) then

       begin y:=1/(x-5); writeln(y:0:5); end

   else begin

       if x<>5 then begin y:=1/(x-1); writeln(y:0:5); end

       else writeln ('Нет решений');

   end

end.

В программе есть небольшой нюанс: при выводе (y:0:5) 5 - количество знаков после запятой. Если потребуется другая точность - ее можно отрегулировать. Только из-за этого: допустим точность = 5, x=7. Вывод будет 0.50000