Составить программу решения уравнения. Z=y/x-1

Question

Составить программу решения уравнения.
Z=y/x-1

Answer 1

Var  z,y,x:real;beginwriteln('Введите значение y: ');readln(y);writeln('Введите значение x: ');readln(x);z:=y/x-1;writeln('z = ',z);end.

Comments

var
z,y,x:real;
begin
writeln('Введите значение y: ');
readln(y);
writeln('Введите значение x: ');
readln(x);
z:=y/x-1;
writeln('z = ',z);
end.