Question

Запишите на языке программирования вычисления по формуле Y=3/x-5

Answer 1

Var x, y: real;
begin
readln(x);
if x<>0 then begin
y:=3/x-5;
writeln('Y=',y);
 end
else writeln('Ур-ие не имеет смысла');
end.