Viết chương trình tính tổng các số chia hết cho 2; 5; 3; 9

program Bai_tap_1;
ues crt;

var i,a,kq: integer;

begin

clrscr;

write('Nhap so: '); readln(a);

for i:=1 to a do

if i mod 2 = 0 do kq:=kq+i else

if i mod 3 = 0 do kq:=kq+i else

if i mod 5 = 0 do kq:=kq+i else

if i mod 9 = 0 do kq:=kq+i;

write('Ket qua: ',kq);

readln

end.

var i,a,kq: integer;

begin

write('Nhap so: '); readln(a);

for i:=1 to a do

if i mod 2 = 0 do kq:=kq+i else

if i mod 3 = 0 do kq:=kq+i else

if i mod 5 = 0 do kq:=kq+i else

if i mod 9 = 0 do kq:=kq+i;

write('Ket qua: ',kq);

readln

end.