Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Cảnh Hùng

Viết chương trình tính tổng các giá trị là bội của 3 trong phạm vi từ 1 đến N

(Số nguyên dương N được nhập vào từ bàn phím)

Đỗ Ngọc Trinh
10 tháng 10 2018 lúc 17:44

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 3 = 0 then Tong:=Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.


Các câu hỏi tương tự
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Lê Quang Hiếu
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Nguyễn Bảo Việt
Xem chi tiết
đông hồ khùng
Xem chi tiết
Huỳnh Quốc Đại
Xem chi tiết
Thuận An
Xem chi tiết