9
9
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
428
270
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
Hãy giúp mọi người biết câu trả lời này thế nào?
`* Pascal:`
`" "`
program trouver;
uses crt;
var poul: integer;
begin
clrscr;
for poul := 1 to 25 do
if poul * 4 + (36 - poul) * 2 = 100 then
begin
writeln('Ga = ', 36 - poul);
writeln('Cho = ', poul);
end;
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
9
219
9
thank
9
219
9
chưa khai báo thư viện bạn ơi
428
7800
270
À! Bạn có thể khai báo hoặc không. Vì nó sẽ không ảnh hưởng đến bài bạn nhé