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.