Nghĩa Trọng

Nhập vào số nguyên n,tính tổng các số chẵn,lẻ trong phạm vi từ 1 đến n

Minh Lệ
22 tháng 3 2023 lúc 23:54

Program HOC24;

var i,n: integer;

tc,tl: longint;

begin

write('Nhap N: '); readln(n);

tc:=0; tl:=0;

for i:=1 to n do if i mod 2=0 then tc:=tc+i else tl:=tl+i;

writeln('Tong chan la: ',tc);

write('Tong le la: ',tl);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Thùy Trinh Ngô
Xem chi tiết
TN Tuong
Xem chi tiết
Hoàng Anh Quân
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Thị Thên Trúc
Xem chi tiết
H dáo
Xem chi tiết
Uyen
Xem chi tiết
lân đinh
Xem chi tiết
nguyễn phạm phương dung
Xem chi tiết