NT

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

ML
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ự
TN
Xem chi tiết
TT
Xem chi tiết
HQ
Xem chi tiết
NH
Xem chi tiết
DT
Xem chi tiết
HD
Xem chi tiết
H24
Xem chi tiết
LD
Xem chi tiết
ND
Xem chi tiết