Tin nâng cao

[Nguyen Hanh Minh Khanh]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình dùng vòng lặp tìm lời giải cho bài bài toán sau:
Trăm trâu trăm bó cỏ
Trâu đứng ăn năm
Trâu nằm ăn ba
Lụ khụ trâu già, ba con ăn chung 1 bó
Hỏi có bao nhiêu trâu đứng trâu nằm,trâu già?

 

[datduong771988@gmail.com]

uses crt;
var x,y,z:integer;
begin
clrscr;
for x:=1 to 20 do
for y:=1 to 33 do
begin
z := 100-x-y;
if 5*x+3*y +z/3=100 then writeln ('Co ',x,' trau dung, ',y,' trau nam, ',z,' trau gia');
end;
readln
end.