viết chương trình giải bài toán cổ sau:
“vừa gà vừa chó
bó lại cho tròn
ba mươi sáu con
một trăm chân chẵn”
viết chương trình giải bài toán cổ sau:
“vừa gà vừa chó
bó lại cho tròn
ba mươi sáu con
một trăm chân chẵn”
program bt;
var
ga,cho:integer;
begin
for ga:=1 to 35 do
begin
cho:=36 – ga;
if ga*2+cho*4=100 then writeln(‘So cho la: ‘,cho,’; so ga la: ‘,ga);
end;
readln;
end.
#Đay_la_thuat_de_giai_bai_toan_tren
#Co_gi_khong_hieu_ban_hoi_lai_minh_nhe
#Chuc_ban_hoc_tot
Program Tinh_ga_cho;
Var ga,cho:integer;
Begin
For ga:=1 to 36 do
For cho:=1 to 36 do
begin
if (ga+cho=36) and (2*ga+4*cho=100) then
begin
Writeln(‘So ga la’,ga:3,’ con va so cho la ‘,cho:3,’ con’);
end;
Readln;
End.