Uses crt; Var i,t:integer; BEGIN For i:=20 to 1000 do if i mod 9=0 then t:=t+i; Writeln('Tong cac so chia het cho 9 tu 20 den 1000 la: ',t); Readln End.
Uses crt; Var i,t:integer; BEGIN For i:=20 to 1000 do if i mod 9=0 then t:=t+i; Writeln('Tong cac so chia het cho 9 tu 20 den 1000 la: ',t); Readln End.