program tinh;
uses crt;
var i,n,x:integer;
t:longint;
function luythua(n,x:integer):longint;
var m:integer;
begin
m:=1;
for i:=1 to n do
m:=m*x;
luythua:=m;
end;
function giaithua(n:integer):longint;
begin
if n=0 then giaithua:=1
else giaithua:=n*giaithua(n-1);
end;
begin
clrscr;
write('nhap n,x:');readln(n,x);
t:=0;
for i:=1 to n do
t:=t+giaithua(luythua(i,x));
writeln(t);
readln;
end.
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
Viết chương trình nhập vào số n với N nhập từ bàn phím. Kiểm tra số N là số dương hay âm
Viết chương trình tìm tất cả các ước của số nguyên dương n (n nhập từ bàn phím).
viết chương trình in ra màn hình từ 1 đến n, n là số nguyên dương nhập từ bàn phím
Viết chương trình nhập vào từ bàn phím số nguyên dương n,sử dụng câu lệnh lặp và câu lệnh điều kiện để tính tổng các giá trị là số chẵn trong phạm vi từ 1 đến N,sau đó in ra màn hình
Viết chương trình nhập vào từ bàn phím số nguyên dương n,sử dụng câu lệnh lặp và câu lệnh điều kiện để tính tổng các giá trị là số lẻ trong phạm vi từ 1 đến N,sau đó in ra màn hình
viết chương trình tính tổng S= 1/3 + 1/5 + 1/7+....+1/(2n+1)
In kết quả ra màn hình. Với n là số nguyên dương được nhập vào từ bàn phím
Viết chương trình nhập vào số n từ bàn phím. Thông báo ra màn hình n là số âm, n là số dương và n là số 0
