Tính tổng chia hết cho 9 từ 20 đến 1000

0 bình luận về “Tính tổng chia hết cho 9 từ 20 đến 1000”

1. Program Tinh_tong_chia_het;

   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.

   Bình luận

2. 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.

   Bình luận