Đăng nhập để hỏi chi tiết
- Tin Học
- Lớp 8
- 10 điểm
- buihoangsn2008 -
Bài 1: Viết chương trình in ra màn hình các số từ x đến y là số chẵn và chia hết cho 3. với x, y nhập từ bàn phím? Đếm xem có tất cả bao nhiêu số? Dữ liệu vào: Số nguyên x và y (x < y). Kết quả ra: Các số chẵn chia hết cho 3 trong phạm vi từ x đến y và đếm có bao nhiêu số. Ví dụ: Dữ liệu vào Dữ liệu ra 3 12 18 24 30 36 40 Co tat ca: 6 so
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
program bai_giai;
uses crt;
var x,y,i,d:longint;
begin
clrscr;
write('Nhap x: '); readln(X);
write('Nhap y: '); readln(y);
d:=0;
for i:=x to y do
if i mod 6=0 then
begin
write(i,' ');
d:=d+1;
end;
writeln;
write('Co ta ca ',d,' so');
readln;
end.
Số chẵn chia hết cho 3 là số chia hết cho 6
Có thể thay i mod 6=0 thành (i mod 2=0) and (i mod 3=0)
Hãy giúp mọi người biết câu trả lời này thế nào?
51 vote
uses crt;
var x,y,d:integer;
begin
clrscr;
readln(x);
readln(y);
d:=0;
while x mod 6<>0 do x:=x+1;
while x<=y do
begin
write(x,' ');
x:=x+6;
d:=d+1;
end;
writeln;
writeln('Co tat ca: ',d,' so');
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
51 vote
Đăng nhập để hỏi chi tiết
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho Lớp 8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.