Viết chương trình tính tổng các số từ 1 đến 100 chia hết cho 6 nhưng không chia hết cho 9
2 câu trả lời
program ctpt;
uses crt;
var S, i: integer;
begin
clrscr;
write('Goi S la tong cac so tu 1 den 100 chia het cho 6 nhung khong chia het cho 9');
S:=0;
for i:=1 to 100 do
if (i mod 6 = 0) and (i mod 9 <>0) then S:=S+i;
write('S = ', S);
readln
end.
Program NN;
Uses crt;
Var s,i: longint;
Begin
Clrscr;
s:=0;
For i:=1 to 100 do
If (i mod 6 = 0) and (i mod 9 <> 0) then s:=s+i;
Write(s);
Readln
End.
