Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phan Chí Huy

Viết chương trình in ra tổng các số tự nhiên chia hết cho 3 bé hơn n.

Nguyễn Lê Phước Thịnh
17 tháng 1 2023 lúc 1:32

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

if i mod 3=0 then t:=t+i;

write(t);

readln;

end.


Các câu hỏi tương tự
Lưu Thùy Linh
Xem chi tiết
Nguyễn Hoàng Long
Xem chi tiết
nguyennhalam
Xem chi tiết
Lê Văn Hà TámB
Xem chi tiết
Nguyễn Như
Xem chi tiết
Nguyễn Võ Phương Uyên
Xem chi tiết
Cao Ngọc Bảo Quyên
Xem chi tiết
Phan Hoàng Xuân Huy
Xem chi tiết
Ánh Dương Trương
Xem chi tiết