Trang chủ Tin Học Lớp 11 2. Trang trí cây thông Noel Bình và An đang...

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

Câu hỏi :

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.

Lời giải 1 :

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.

Thảo luận

-- cung nhóm nha bn êy
-- ? ?
-- https://hoidap247.com/cau-hoi/3119817 lm đi bn
-- đang bận
-- ít điểm dài làm biến làm lắm

Lời giải 2 :

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`

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 11

Lớp 11 - Năm thứ hai ở cấp trung học phổ thông, gần đến năm cuối cấp nên học tập là nhiệm vụ quan trọng nhất. Nghe nhiều đến định hướng sau này rồi học đại học. Ôi nhiều lúc thật là sợ, hoang mang nhưng các em hãy tự tin và tìm dần điều mà mình muốn là trong tương lai nhé!

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK