Question

b1: nhập 2 số nguyên a, b
b2: nếu a>b thì a <- a-b
b3: nếu b>a thì b <- b-a
b4: đưa ra a, b rồi kttt
*cho a=3, b=3
kết qả a=b=3 hay a=b=0 z mn, giúp mik vs

Answer 1

Program So_nguyen;

uses crt;

Var a,b,t:integer;

Begin

clrscr;

Writeln(' Nhap 2 so nguyen a va b:');

if a>b then t:= a-b;

if a<b then t:=b-a;

if a=b then t:=0;

Writeln(' Ket qua la',t);

Readln;

End.