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.

for i:=1 to n do

s:=s+i;

dạng lùi

for i:=n downto 1 do

s:=s+i;

-dạng tiến

for i:=1 to 2*n do

if i mod 2=0 then s:=s+i;

dạng lùi

for i:=n downto 1 do

if i mod 2=0 then s:=s+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.