Viết chương trình dùng câu lệnh lặp for… do để 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
Viết chương trình dùng câu lệnh lặp for… do để 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
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.
program tong;
uses crt;
var X:array [1..500] of integer;
n,i,T: integer;
Begin
write(‘Nhap so phan tu cua day: ‘); readln(n);
for i:=1 to n do
begin
write(‘X[‘,i,’]=’); readln(X[i]);
end;
for i:=1 to n do
if X[i] mod 3=0 then T:=T+X[i];
write(‘Tong cac so chia het cho 3 = ‘,T);
readln
End.