Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Huyền Trang Trang
1.Viết chương trình nhập một số nguyên dương n a)In ra màn hình các số chia hết cho 3 trong khoảng từ 1đến n b) Tính tổng các số chia hết cho 3 từ 1 đến n
Nguyễn Lê Phước Thịnh
7 tháng 3 2021 lúc 18:35

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if i mod 3=0 then 

begin

write(i:4);

t:=t+i;

end;

writeln;

writeln('Tong cac so chia het cho 3 la: ',t);

readln;

end.

Bùi Anh Tuấn
7 tháng 3 2021 lúc 21:29


Các câu hỏi tương tự
Lan Phương
Xem chi tiết
Phan Thị Ka
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết
Ngọc Nguyễn
Xem chi tiết
Bảo Trâm
Xem chi tiết
Bảo Trâm
Xem chi tiết
Thư Uyên
Xem chi tiết
Maiiii
Xem chi tiết
hoangvinh
Xem chi tiết