S=1+2+3 +…+N S=2+4+6+…2N yêu cầu : sử dụng 2 dạng tiến lùi

DẠNG TIẾN

Bài 1:

Uses crt;
Var s, n, i: integer;
Begin
Write(‘Nhap n = ‘); readln(n);
s:=0;
For i:=1 to n do s:=s+i;
Writeln(S);
Readln
End.

Bài 2:

Uses crt;
Var s, i, n: integer;
Begin
Write(‘Nhap n = ‘); readln(n);
s:=0;
For i:=1 to 2*n do if i mod 2 = 0 then s:=s+i;
Writeln(S);
Readln
End.

DẠNG LÙI

Bài 1:

Uses crt;
Var s, i, n: integer;
Begin
Write(‘Nhap n = ‘); readln(n);
s:=0;
For i:=n downto 1 do s:=s+i;
Writeln(S);
Readln
End.

Bài 2:

Uses crt;
Var s, i, n: integer;
BEgin
Write(‘Nhap n = ‘); readln(n);
s:=0;
For i:=2*n downto 1 do if i mod 2 = 0 then s:=s+i;
Writeln(S);
Readln
End.