Bài 1:
Program FNG;
Uses crt;
Var n,i: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
i:=2;
While i<=n do
Begin
Write(i,' ');
inc(i,2);
End;
Readln
End.
Bài 2:
Program FNG;
Uses crt;
Var n,i: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
i:=1;
While i<=n do
Begin
Write(i,' ');
inc(i,2);
End;
Readln
End.
Bài 3:
Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
i:=1;
While i<=n do
Begin
s:=s+i;
inc(i,2);
End;
Write('S = ',s);
Readln
End.
Bài 4:
Program FNG;
Uses crt;
Var n,i: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
If n mod i = 0 then Write(i,' ');
Readln
End.
Bài 5:
Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n div 2 do
If n mod i = 0 then s:=s+i;
If s=n then Write('Hoan hao')
Else Write('Khong hoan hao');
Readln
End.
Bài 6:
Program FNG;
Uses crt;
Var n,i,s,j: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
s:=0;
For j:=1 to i do
If i mod j = 0 then s:=s+j;
If s=2*i then Write(i,' ');
End;
Readln
End.
Bài 7:
Program FNG;
Uses crt;
Var n,i: longint;
Begin
Clrscr;
Write('Bang cuu chuong: '); Readln(n);
For i:=1 to 10 do
Writeln(n,' x ',i,' = ',n*i);
Readln
End.
