.::DIỄN ĐÀN HỌC TẬP VÀ VUI CHƠI::.

Toàn bộ
Tiêu đềNgười tạoNgười gửi cuốiChuyên mụcBìnhXem
Bài gửi sau cùng

You are not connected. Please login or register

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

kingofthedevils


Thành viên tích cực
Thành viên tích cực
uses wincrt;
var st,sc,td,tn,tg:integer;
begin
st:=100;
sc:=100;
for td:=0 to 20 do
for tn:=0 to 33-td do
for tg:=0 to 100-td-tn do
if (st=td+tn+tg) and (sc=5*td+3*tn+(tg div 3)) then
begin
writeln('so trau dung la ',td);
writeln('so trau nam la ',tn);
writeln('so trau gia la ',tg);
end;
readln
end.
-Phan Bảo Duy-

Xem lý lịch thành viên

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang  Thông điệp [Trang 1 trong tổng số 1 trang]

Permissions in this forum:
Bạn không có quyền trả lời bài viết