-
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 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) ?
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.
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
CÂU HỎI KHÁC
- Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước ?
- Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp chưa biết trước ?
- Lệnh lặp nào sau đây là đúng nhất?
- Phát biểu nào dưới đây đúng nhất?
- Câu lệnh Pascal : While (3*5>=15) do Writeln (3*5); sẽ như thế nào?
- Đoạn chương trình trên sẽ in ra màn hình giá trị là?
- Đoạn chương trình trên sẽ in ra màn hình giá trị là gì?
- Chương trình trên sẽ cho phép nhập giá trị n (n>1) nào?
- Trong lập trình, cấu trúc lặp dùng để làm gì ? Hãy nêu dạng tổng quát và cách thực hiện lệnh của câu lệnh lặp While... do... trong ngôn ngữ lập trình Pascal ?
- 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) ?
