Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đỗ Nguyễn Thùy Lâm

Viết chương trình nhập vào sô nguyên n với ( với 3<= n <=50). Sau đó tính tổng các số chia hết cho 3 trong khoảng từ 3 đến n

Phía sau một cô gái
26 tháng 7 2023 lúc 20:57

program TongCacSoChiaHetChoBa;

var

     n, i, sum: integer;

begin

repeat

          Write('Nhap so nguyen n (3 <= n <= 50): ');

          Readln(n);

     until (n >= 3) and (n <= 50);

     sum := 0;

     for i := 3 to n do

     begin

          if i mod 3 = 0 then

          sum := sum + i;

     end;

     WriteLn('Tong cac so chia het cho 3 trong khoang tu 3 den ', n, ': ', sum);

     ReadLn;

end.


Các câu hỏi tương tự
Đỗ Nguyễn Thùy Lâm
Xem chi tiết
Huy Đại Ca
Xem chi tiết
Nguyễn Ngọc Diễm My
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nhat thanh Tran
Xem chi tiết
Võ Tấn Trường Phạm
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Gia Linh
Xem chi tiết
Bảo Châu Lê
Xem chi tiết