Lập trình tính M (làm tròn đên 3 chữ số thập phân),x,y,z nhập từ bàn phím M=yz-(x+y)/(x-z)
2 câu trả lời
uses crt;
var m: real;
x,y,z: integer;
begin
clrscr;
write ('nhap x: '); readln (x);
write ('nhap y: '); readln (y);
write ('nhap z: '); readln (z);
m:=y*z-(x+y)/(x-z);
writeln ('M= ',m:1:3);
readln;
end.
var M:real;
x,y,z:longint;
begin
write('Nhap vao 3 so x y z: ');readln(x,y,z);
M := y*z-(x+y)/(x-z);
writeln('M = ',M:0:3);
readln;
end.
