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. 17/08/2021 Bởi Josephine 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.
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. Bình luận
+ 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 Bình luận
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