Question

Viết chương trình nhập vào só nguyên N từ bàn phím (0 < N ≤ 1018). Thực hiện các công việc sau và ghi ra màn hình:

- Dòng thứ nhất ghi ra tổng của dãy số từ 1 đến N.

- Dòng thứ hai ghi ra tổng các số chẵn trong dãy từ 1 đến N.

- Dòng thứ ba ghi ra tổng các số lẻ trong dãy số từ 1 đến N

Answer 1

Var n,sc,sl,i:longint;

Begin

Write('N = ');readln(n);

Write('Cac so tu 1 den ',n,' la ');

For i:=1 to n do

Write(i:8);

Writeln;

For i:=1 to n do

Begin

If i mod 2 = 0 then sc:=sc+i

Else sl:=sl+i;

End;

Writeln('Tong cac so chan la ',sc);

Write('Tong cac so le la ',sl);

Readln

End.