Viết chương trình dùng câu lệnh lặp while… 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(dùng thêm câu lệnh kiểu mảng)
Viết chương trình dùng câu lệnh lặp while… 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(dùng thêm câu lệnh kiểu mảng)
program phuongt;
uses crt;
var X: array[1..500] of integer;
n, i, s: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
i:=1; s:=0;
while i<=n do
begin
write(‘X[‘, i, ‘] = ‘); readln(X[i]);
if X[i] mod 3 = 0 then s:=s+X[i];
i:=i+1;
end;
write(‘Tong = ‘, s);
readln
end.
Đáp án: Bạn tham khảo chương trình này nhé
Giải thích các bước giải
program vd;
uses crt;
var a:array[1..1000] of Integer ;
n, i, T:Integer;
begin
clrscr;
WriteLn(‘Nhap so phan tu cua mang’);readln(n);
writeln(‘Nhap cac phan tu’);
i:=1;
while i<=n do
begin
ReadLn(a[i]);
i:=i+1;
end;
T:=0;
for i:=1 to n do
if a[i] mod 3 =0 then T:=T+a[i];
writeln(‘Tong cac so chia het cho 3 la:’,T);
readln;
end.