cho bài toán sau :nhập từ bàn phím ba số nguyên a,b,c.tìm và xuất ra màn hình giá trị nhỏ nhất của ba số nguyên a,b,c 28/07/2021 Bởi Julia cho bài toán sau :nhập từ bàn phím ba số nguyên a,b,c.tìm và xuất ra màn hình giá trị nhỏ nhất của ba số nguyên a,b,c
program az; uses Crt; var a,b,c,Min : integer; begin clrscr; Write(‘Nhap 3 so a,b,c : ‘); readln(a,b,c); Min := a; If (b < Min) then Min := b; If (c < Min) then Min := c; Write(‘so nho nhat trong 3 so la : ‘,Min); readln end. Bình luận
program az;
uses Crt;
var a,b,c,Min : integer;
begin
clrscr;
Write(‘Nhap 3 so a,b,c : ‘); readln(a,b,c);
Min := a;
If (b < Min) then Min := b;
If (c < Min) then Min := c;
Write(‘so nho nhat trong 3 so la : ‘,Min);
readln
end.