Question

viết chương trình nhập vào 2 số a, b, hoán đổi giá trị của chúng cho nhau. Không được sử dụng biến trung gian, chỉ được sử dụng phép toán nhân, chia

Answer 1

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

a:=a+b;

b:=a-b;

a:=a-b;

writeln('So a sau khi hoan doi la: ',a);

writeln('So b sau khi hoan doi la: ',b);

readln;

end.

Answer 2

Var a,b:real;

Begin

Write('Nhap so a = ');readln(a);

Write('Nhap so b = ');readln(b);

a:=a*b;

b:=a/b;

a:=a/b;

Writeln('a = ',a:10:2);

Write('b = ',b:10:2);

Readln;

End.