Đề thi tin học trẻ không chuyên cấp Tỉnh khối THCS

[Phan Đặng Quốc Huy]

[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.

Có 1 bài này em trích từ đề thi, em cũng không hiểu cách làm nó. anh chị nào biết chỉ dùm em với (Dùng pascal)
Lập trình cho bài toán cổ sau:
Trăm trâu trăm bó
Trâu đứng ăn năm
Trâu nằm ăn ba
Lụ khụ trâu già
Ba con một bó
Hỏi số trâu mỗi loại ?

 

[Lê Thanh Huy]

var x,y,z:longint;
begin
for x:=1 to 20 do
for y:=1 to 33 do
begin
z:=100-x-y;
if 5*x+3*y+k/3=100 then
write('trau dung ',x,' trau nam: ',y,' trau gia:',z);
end;
end.

 

[BhofA]

Bài này thì dễ


Program bhofa;
uses crt;
var
begin
clrscr;
n:=0;
for i:=1 to 100 do
for j:=1 to 100-j do
for k:=1 to 100-i-j do
if 5*i+j*3+k*1/3 = 100 then
begin
write('Co ',i,' trau dung, ',j,' trau nam, ',k,' trau gia);
n:=1;
end;
if n=0 then write('Khong co ket qua dung ');
readln
end.