nguyễn

b1. đếm số lượng số vừa chia hết cho 3 vừa chia hết cho 2 trong phạm vi từ 20 đến 1000.

 

Minh Lệ
17 tháng 8 2021 lúc 21:58

Program HOC24;

var d,i: integer;

begin

d:=0;

for i:=20 to 1000 do

if (i mod 2=0) and (i mod 3=0) then d:=d+1;

write(d);

readln

end.


Các câu hỏi tương tự
linh linh
Xem chi tiết
linh linh
Xem chi tiết
Cao thị yến
Xem chi tiết
TN Tuong
Xem chi tiết
Nam Lê
Xem chi tiết
Thùy Trinh Ngô
Xem chi tiết
ly khanh
Xem chi tiết
Trần nguyên sang
Xem chi tiết
Hươngg Thuu
Xem chi tiết