farodis
Var z,y,x:real;beginwriteln('Введите значение y: ');readln(y);writeln('Введите значение x: ');readln(x);z:=y/x-1;writeln('z = ',z);end.
0 votes Thanks 0
farodis
var z,y,x:real; begin writeln('Введите значение y: '); readln(y); writeln('Введите значение x: '); readln(x); z:=y/x-1; writeln('z = ',z); end.
Answers & Comments
z,y,x:real;
begin
writeln('Введите значение y: ');
readln(y);
writeln('Введите значение x: ');
readln(x);
z:=y/x-1;
writeln('z = ',z);
end.