Question

Câu 1. Viết chương trình tính tổng các số lẻ từ 1 đến n ( n nhập từ bàn phím).

Câu 2.  Viết chương trình tính tổng các số chẵn từ 1 đến n ( n nhập từ bàn phím).

help me, pls

Answer 1

Câu 1: 
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

Answer 2

Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.