Tin 8

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

Viết chương trình tìm tất cả các số có 4 chữ số chia hết cho 2, 3 và 5. Lưu ý: Phải in 5 số trên 1 hàng !
Ai đã làm được bài này thì giúp em nhanh nhanh !

 

[Hoa Tử Anh]

Dùng câu điều kiện If là nhanh nhất vì giới hạn dữ liệu cũng k nhiều. đừng suy nghĩ sâu xa.
dong=0;
d:=0;
For i:=1000 to 9999 do
begin
if (i mod 2=0) and (i mod 3=0) and (i mod 5)=0 then
begin
if d=5 then
begin
inc(dong);
d:=0;
end
else
begin
inc(d);
gotoxy(dong, d*10);
write(i);
end;
end;
end;
Bạn không hiểu chỗ nào thì hỏi nha!

 

[Nguyễn Thánh Tiền]

if d=5 then

if d mod 5 = 0 then ................... thì sao em

 

[Hoa Tử Anh]

if d mod 5 = 0 then ................... thì sao em

thì hay hơn

 

[Phan Đặng Quốc Huy]

Ý chết, mình quên nhắc là dùng GotoXY rồi !

 

[Nguyễn Thánh Tiền]

đã sửa bài trên.

Thân