2. Trang trí cây thông Noel Bình và An đang trang trí cây thông Noel. Bình chỉ muốn sử dụng 3 loại màu trang trí trên Cây thông Noel: vàng, xanh và đỏ. Hai bạn có y đồ vật trang trí màu vàng, b đồ vật trang trí màu xanh và r đồ vật trang trí màu đỏ. Theo ý kiến của An, một Cây thông Noel sẽ đẹp nếu: Số đồ vật trang trí màu xanh nhiều hơn số đồ vật trang trí màu vàng đúng một đồ vật, số đồ vật trang trí màu đỏ nhiều hơn số đồ vật trang trí màu xanh đúng một đồ vật. Bình muốn chọn càng nhiều đồ vật trang trí càng tốt, nhưng bạn ấy cũng muốn Cây thông Noel thật đẹp theo ý của An. Yêu cầu: Cho trước ba số nguyên y, b, r lần lượt là số lượng đồ vật trang trí màu vàng, màu xanh và màu đỏ (1 ≤ y ≤ 100, 2 ≤ b ≤ 100, 3 ≤ r ≤ 100). Em hãy giúp Bình và An viết chương trình tính số lượng đồ vật trang trí nhiều nhất được sử dụng trên Cây thông Noel.
2 câu trả lời
uses crt;
var y,b,r:longint;
begin
clrscr;
write('nhap vang,xanh,do');
readln(y,b,r);
if (1<=y) and (y<=100) and (2<=b) and (b<=100) and (3<=r) and (r<=100) then
begin
b:=y-1;
y:=r-1;
write(b,' ',r,' ',r,' ');
readln;
end;
end.
`khoadang09` and `votranlyna`
program noel;
uses crt;
var y, b, r, x, z, h : integer;
begin
clrscr;
write(' nhap so luong do trang tri mau vang :'); readln( y );
write(' nhap so luong do trang tri mau xanh :'); readln( b );
write(' nhap so luong do trang tri mau do :'); readln( r );
if ((y >= 1) and (y <= 100)) and ((b >= 2) and (b <= 100)) and ((r >= 3) and (r <= 100)) then
begin
z := y;
x := z + 1;
h := x + 1;
writeln(' so luong do trang tri mau do nhieu nhat la :', h );
writeln(' so luong do trang tri mau xanh nhieu nhat la :', x );
writeln(' so luong do trang tri mau vang nhieu nhat la :', z );
end;
readln
end.
