Nguyễn Hoàng Long

Viết chương trình nhập vào số nguyên n (n>0) Tính tổng các số không chia hết cho 2 nhỏ hơn n . in kết quả ra màn hình

Nguyễn Hoàng Long
24 tháng 3 2023 lúc 20:30

Pls giúp vs ạ !!!

Bình luận (0)
Phía sau một cô gái
24 tháng 3 2023 lúc 20:35

program TinhTong;

uses crt;

var

     n, i, tong: integer;

begin

     clrscr;

     write('Nhap vao so nguyen duong n: ');

     readln(n);

     tong := 0;

     for i := 1 to n-1 do begin

          if i mod 2 <> 0 then

               tong := tong + i;

     end;

     writeln('Tong cac so khong chia het cho 2 la: ', tong);

     readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Phan Hoàng Xuân Huy
Xem chi tiết
Võ Tấn Trường Phạm
Xem chi tiết
WinX Enchantix Phép Thuậ...
Xem chi tiết
phạm hải nam
Xem chi tiết
hà phương
Xem chi tiết
Selena Flynn
Xem chi tiết
Nguyen Ng nguyen
Xem chi tiết
Tali
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết