.::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]

1 Tìm BCNN của 2,3,7 on Thu Oct 27, 2011 4:44 pm

kingofthedevils


Thành viên tích cực
Thành viên tích cực
uses wincrt;
var i,n:integer;
begin
i:=1;
while i<=(3*2*7) do
begin
i:=i+1;
if (i mod 2 = 0) and (i mod 3 = 0) and (i mod 7 = 0) then
writeln('so nho nhat la : ',i);
end;
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