Tin 8

Phan Đặng Quốc Huy

Phan Đặng Quốc Huy

Học sinh tiến bộ
Thành viên
27 Tháng hai 2017
441
386
169
20
Gia Lai
THCS Trần Phú
Hoa Tử Anh

Hoa Tử Anh

Học sinh chăm học
Thành viên
26 Tháng tư 2017
66
31
56
Khánh Hòa
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!
 

Attachments

  • 30.PNG
    30.PNG
    6.1 KB · Đọc: 80
Last edited by a moderator:
You must log in or register to reply here.
Top Bottom