Theo hướng dẫn của thầy/cô của bạn thì. Chúng ta sẽ chạy i từ i = 1 đến i = n;

Ví dụ n = 4 thì i lần lượt bằng: i = 1; i = 2; i= 3; i =4;

+ Các số chẵn liên tiếp = 2 x i ( 2 x 1 = 2; 2 x 2=4; 2x3=6; 2x4=8;)

+ Các số lẽ liên tiếp = 2 x i-1 (2 x 1-1 = 1; 2 x 2 - 1=3; 2 x 3 -1=5; 2x4-1=7;)

Vậy code là

a)

Program sochanlientiep;
Uses crt;
Var s,n,i:integer;
BEGIN
clrscr;
Write('Nhap N: '); Readln(n);
s:=0;
For i := 1 to n do s:=s + (i*2);
Writeln('Tong cua ',n,' so chan lien tiep la: ',s);
Readln;
END.

b)

Program solelientiep;
Uses crt;
Var s,n,i:integer;
BEGIN
clrscr;
Write('Nhap N: '); Readln(n);
s:=0;
For i := 1 to n do s:=s + (i*2-1);
Writeln('Tong cua ',n,' so le lien tiep la: ',s);
Readln;
END.

a)

uses crt;
var s,i,n:longint;
begin
clrscr;
   write('Nhap N: ');readln(n);
   for i:=1 to 2*n do
      if i mod 2=0 then s:=s+i;
   writeln('Tong: ',s);
readln
end.

b)

uses crt;
var s,i,n:longint;
begin
clrscr;
   write('Nhap N: ');readln(n);
   for i:=1 to 2*n do
      if i mod 2=1 then s:=s+i;
   writeln('Tong: ',s);
readln
end.