Nhập 3 số a,b,c từ bàn phím, in ra màn hình số bé nhất 31/07/2021 Bởi Elliana Nhập 3 số a,b,c từ bàn phím, in ra màn hình số bé nhất
program az; uses Crt; var a,b,c : integer; begin clrscr; Write(‘ Nhap a :’); readln(a); Write(‘ Nhap b :’); readln(b); Write(‘ Nhap c :’); readln(c); If (a < b) and (a < c) than Write(‘ Nho nhat la :’,a); If (b < a) and (b < c) than Write(‘ Nho nhat la :’,b); If (c < a) and (c < b) than Write(‘ Nho nhat la :’,c); readln end. Bình luận
program az;
uses Crt;
var a,b,c : integer;
begin
clrscr;
Write(‘ Nhap a :’); readln(a);
Write(‘ Nhap b :’); readln(b);
Write(‘ Nhap c :’); readln(c);
If (a < b) and (a < c) than Write(‘ Nho nhat la :’,a);
If (b < a) and (b < c) than Write(‘ Nho nhat la :’,b);
If (c < a) and (c < b) than Write(‘ Nho nhat la :’,c);
readln
end.
bài của bạn đây