Question

программа вычисляет значение выражения z=xy/3x+y. надите ошибки в программном ходе: var x,y: integer z:integer; begin writeln(Введите два числа); readln (x);z:=x*y/(3x+y); write('z=',z); end

Answer 1

Если $z= \frac{xy}{3x+y}$ 

var
x,y: integer;
z:real;
begin
writeln('Введите два числа');
readln (x,y);
z:=x*y/(3*x+y);
write('z=',z);
end.