Bài 1: Do đề không rõ ràng nên mình tính tổng các số chẵn và số lẽ từ 1 đến n nhé!
Program BTT;
Uses crt;
Var n,i,tl,tc: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
tl:=0; tc:=0;
For i:=1 to n do
Begin
If i mod 2 = 0 then tc:=tc+i;
If i mod 2 = 1 then tl:=tl+i;
End;
Writeln('Tong cac so le: ',tl);
Write('Tong cac so chan: ',tc);
Readln
End.
Bài 2:
Program BTT;
Uses crt;
Var n,i,t: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
t:=0;
For i:=1 to n do
If n mod i = 0 then t:=t+i;
Write('Tong uoc la: ',t);
Readln
End.
Bài 3:
Program BTT;
Uses crt;
Var S: int64;
i,n: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
S:=1;
For i:=1 to n do
S:=S*i;
Write('Giai thua cua ',n,' la: ',S);
Readln
End.
Bài 4:
Program BTT;
Uses crt;
Var n,i: longint;
S: int64;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
S:=1;
For i:=1 to n do
S:=S*2;
Write('Dap an: ',s);
Readln
End.
Bài 5:
Program BTT;
Uses crt;
Var n,m,i: longint;
S: int64;
Begin
Clrscr;
Write('Nhap m,n: '); Readln(m,n);
S:=1;
For i:=1 to n do
S:=S*m;
Write('Dap an: ',s);
Readln
End.
