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
4 tháng 5 2023 lúc 20:33

program TinhTongChiaHetChoBa;

var

      N, i, Tong: integer;

begin

      writeln('Nhap so nguyen duong N (3 <= N <= 50):');

      readln(N);

      if (N < 3) or (N > 50) then

      begin

            writeln('N khong hop le!');

            readln;

            exit;

      end;

      Tong := 0;

      i := 3;

      while i <= N do

      begin

            if i mod 3 = 0 then

            begin

                  Tong := Tong + i;

            end;

            i := i + 1;

      end;

      writeln('Tong cac so tu 3 den ', N, ' chia het cho 3 la: ', Tong);

      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