Cho số tự nhiên n. Viết chương trình tính tổng các số tự nhiên chia hết cho 3 không lớn hơn n.
2 câu trả lời
Program Hotboy;
Uses crt;
Var s:real;
I,n:integer;
Begin
Clrscr;
Write('nhao so n'); readln(n) ;
For i:=1 to n do
If i mod 3=0 and i<=n then
S:=S+i ;
Writeln('tong S la',S);
Readln
End.
+ input :n
+ output : Tổng = 3+6+..+3*k
Thuật toán
B1. Nhập n . Tổng ←=,k←0←=,k←0
B2. Tổng ←← tổng +3*k
B3. k←k+1←k+1
B4. Nếu 3*k≤n≤n, quay lại bước 2
B5. Thông báo kết quả Tổng
B6. Kết thúc thuật toán
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
