Viết chương trình nhập vào 2 số bất kì kiểm tra và đưa ra số có giá trị nhỏ hơn

2 câu trả lời

uses crt;

var a,b:longint;

begin

clrscr;

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

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

if a<b then write('So nho hon la: ',a) else  write('So nho hon la: ',b) ;

readln;

end.

var a,b:longint;

begin

write('nhap vao so a =',' ');readln(a);

write('nhap vao so b =',' ');readln(b);

if a<b then write(' so nho nhat la ',a) else  write(' so nho nhat la ',b) ;

end.

Câu hỏi trong lớp Xem thêm