Question

[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

Answer 1

[Minh Lệ]

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.