Bài 5:
Program FNG;
Uses crt;
Var i: longint;
Begin
Clrscr;
For i:=1 to 2 do Writeln('Chao ban. Ban co khoe khong!');
Readln
End.
Bài 6:
Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n do
If i mod 2 = 0 then s:=s+i;
Write('S = ',s);
Readln
End.
Bài 7:
Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n do
If i mod 2 = 1 then s:=s+i;
Write('S = ',s);
Readln
End.
Bài 8:
Program FNG;
Uses crt;
Var n,i: longint;
s: extended;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n do
s:=s+1/(i+2);
Write('S = ',s:0:2);
Readln
End.
