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

Question

khanhchau · Answer

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.

ngochuong · Answer

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.

0 bình luận về “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”