Lập trình Pascal nhập từ bàn phím 2 số nguyên khác nhau m,n. Thay số nhỏ hơn bằng hiệu của số lớn với số bé, thay số lớn hơn bằng tổng của 2 số ban đầu. Đưa ra màn hình các giá trị mới của m,n.
Mn giúp e vs ạ
Lập trình Pascal nhập từ bàn phím 2 số nguyên khác nhau m,n. Thay số nhỏ hơn bằng hiệu của số lớn với số bé, thay số lớn hơn bằng tổng của 2 số ban đầu. Đưa ra màn hình các giá trị mới của m,n.
Mn giúp e vs ạ
Program So_lon_so_be
Var m,n,a,b:integer;
Begin
a:=0;
b:=0;
Write(‘Nhap so m=’); Readln(m);
Write(‘Nhap so n=’); Readln(n);
If m>n then a:=m-n
else a:=n-m;
b:=m+n;
If m>=n then
`\quad ` Begin
`\qquad` n:=a; m:=b;
`\quad` End
Else
`\quad` Begin
`\qquad` m:=a; n:=b;
`\quad` End;
Writeln(‘Gia tri moi cua m la ‘,m);
Writeln(‘Gia tri moi cua n la ‘,n);
Readln;
End.