Viết chương trình tính tổng các số chia hết cho 3 trong dãy số nguyên X1, X2, ..., Xn. Biết rằng n, X1, X2, ...Xn là các số nguyên nhập từ bàn phím (n>0) ?

Câu hỏi:
Viết chương trình tính tổng các số chia hết cho 3 trong dãy số nguyên X₁, X₂, ..., X_n. Biết rằng n, X₁, X₂, ..., X_n là các số nguyên nhập từ bàn phím (n>0) ?

Lời giải tham khảo:

Var n, x, i, S : Integer;

Begin

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

i := 0; S := 0;

While i < n do

      Begin

            i := i + 1;

            Write ('Nhap so thu ',i,' = '); Readln (x);

            if x mod 3 = 0 then S := S + x;

      End;

Writeln ('Tong cac so chia het cho 3 la : ',S);

Readln;

End.

Hãy suy nghĩ và trả lời câu hỏi trước khi HOC247 cung cấp đáp án và lời giải

ADSENSE

Mã câu hỏi: 110568

Loại bài: Bài tập

Chủ đề :

Môn học:

Câu hỏi này thuộc đề thi trắc nghiệm dưới đây, bấm vào Bắt đầu thi để làm toàn bài

YOMEDIA

Hướng dẫn Trắc nghiệm Online và Tích lũy điểm thưởng

ADSENSE

ADMICRO