cho bài toán 4 số nguyên dương a,b,c,d tìm phần tử nhỏ nhất trong 4 số đó
2 câu trả lời
Program baitap;
Uses crt;
Var a,b,c,d,min:integer;
Begin
Clrscr;
Write('Nhap a,b,c,d:'); Readln(a,b,c,d);
min:=a;
If b<min then min:=b;
If c<min then min:=c;
If d<min then min:=d;
Writeln('Phan tu nho nhat:',min);
Readln
End.
$\text{Gửi bạn,có thể trình độ mình còn non,nếu có sai mong bạn đừng chửi ạ!}$
Câu hỏi trong lớp
Xem thêm
