Một số bài tập Turbo Pascal

Question

C1: VCT tính tổng các số nguyên n được nhập từ bàn phím đến khi gặp số nguyên tố thì dừng.

C2: 

VCT giải bài toán sau:

Yêu nhau cau sáu bổ ba

Ghét nhau cau sáu bổ ra làm muời

Số người tính đã tám mươi,

Cau mười năm quả,hỏi người gét,yêu?

Tính xem có bao nhiêu người ghét,bao nhiêu người yêu?

2 bài - bạn nào làm được 1 bài tớ sẽ vẫn tick nha!!!

 

Answer 1

Giaỉ :

Giả sử tất cả đều người yêu và cau đều bổ 3;
Số miếng cau bổ 3 là : 15 x 3 = 45 (miếng)
Số miếng cau thiếu : 80 - 45 = 35.(miếng)
Thiếu 35 là đã đem cau bổ 10 bổ thành 3 nên mỗi quả hụt 7 miếng
Cau bổ 10 là 35 : 7 = 5 (quả)
Số người ghét là : 5 x10 = 50 (người)
Số người yêu là : (15 - 5 ) x 3 = 30 (người)