Lập trình đơn giản

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

Viết chương trình tính tổng các số chia hết cho 3 của 1...n số nguyên. Với n nhập từ bàn phím .

VD: n=10 ( các số 1,2,3,4,5,6,7,8,9,10) thì kết quả là 18.

Yeezus Khôi
4 tháng 12 2017 lúc 17:52

Program tinhtong;

uses crt;

var i, SUM, N : integer; Begin

Clrscr;

Write('Nhap N: '); Readln(n);

SUM := 0; For i:=1 to N do if (i mod 3 = 0) then SUM:= SUM + i;

Write('Tong la: ', SUM);

Readln;

End.

Tick bạn ơi.


Các câu hỏi tương tự
Long Triệu
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Trần Việt Long
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết
Cao Cự Quân
Xem chi tiết
BAO LE DANH
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết