Viết chương trình :
-Nhập vào số nguyên N .
– Tính tổng các số chia hết cho 3 trong dãy n số tự nhiên . In ra kết quả màn hình (sử dụng lệnh while .. do)
Viết chương trình :
-Nhập vào số nguyên N .
– Tính tổng các số chia hết cho 3 trong dãy n số tự nhiên . In ra kết quả màn hình (sử dụng lệnh while .. do)
đây bạn
đã test
var n, s, i: word;
Begin
Write(‘n=’); readln(n);
i:=1; s:=0;
While i<=n do
Begin
If i mod 3 = 0 then s:=s+i;
Inc(i);
End;
Write(s);
Readln
End.