Lê Minh Hải
(minhhai708)
New Member
Đọc 2 số integer a,b từ bàn phím. Nếu tổng chúng khác 0 thì trừ 1 vào số nhỏ và cộng 1 vào số lớn. Xuất a,b ra màn hình.
procedure bai2;
var
a,b: integer;
{Function min(x,y): integer;
begin
if x>y then min:=y
Else min:=x;
end;}
begin
write('Nhap a = ');readln(a);
write('Nhap b = ');readln(b);
if a+b<>0 then
begin
if a<b then
begin
dec(a);
inc(b);
end
Else
begin
inc(a);
dec(b);
end;
end;
writeln(' So a =',a);
writeln(' So b =',b);
readln
end;
procedure bai2;
var
a,b: integer;
{Function min(x,y): integer;
begin
if x>y then min:=y
Else min:=x;
end;}
begin
write('Nhap a = ');readln(a);
write('Nhap b = ');readln(b);
if a+b<>0 then
begin
if a<b then
begin
dec(a);
inc(b);
end
Else
begin
inc(a);
dec(b);
end;
end;
writeln(' So a =',a);
writeln(' So b =',b);
readln
end;
) <1 bài>
