LL

Viết chương trình in ra màn hình gtrị tổng cá số tự nhiên lẻ bé hơn hoặc bằng Những, Với số N đc nhập từ bàn phím

ND
29 tháng 3 2023 lúc 15:28

program TinhTongSoTuNhienLe;
var
  N, i, sum: integer;
begin
  write('Nhap so N: ');
  readln(N);

  sum := 0;
  for i := 1 to N do
  begin
    if i mod 2 = 1 then // Kiểm tra số lẻ
      sum := sum + i;   // Cộng dồn vào tổng
  end;

  writeln('Tong cac so tu nhien le nho hon hoac bang N la: ', sum);
  readln;
end.

Bình luận (0)

Các câu hỏi tương tự
BB
Xem chi tiết
UT
Xem chi tiết
NH
Xem chi tiết
HP
Xem chi tiết
CQ
Xem chi tiết
PN
Xem chi tiết
NA
Xem chi tiết
NN
Xem chi tiết
MP
Xem chi tiết