Program hotrotinhoc;
var x,n,i,j: integer;
t: longint;
function mu(k,m: integer): longint;
var s: longint;
l: integer;
begin
s:=1;
for l:=1 to m do
s:=s*k;
mu:=s;
end;
begin
t:=0;
write('X='); readln(x);
write('N='); readln(n);
for i:=1 to n do
t:=t+mu(x,i);
write(t);
readln
end.
Chương trình nhập vào 2 số x và y với x,y là số nguyên được nhập từ bàn phím tính và xuất ra màn hình tổng hai số x,y
nhập từ bàn phím số nguyên dương n đưa ra kết quả tính tổng các số có 5 chữ số chia hết cho n
Nhập vào 3 số a,b,c có giá trị từ ( 1 ≤ a,b,c ≤ 6) In ra màn hình giá trị bất kì x,y,z (1≤ x,y,z ≤ 6) và tính tổng của 3 số x,y,z
Cho tệp số nguyên Dl.txt chứa các số nguyên , mỗi số cách nhau một kí tự trắng .Viết chương trình đọc các số nguyên dương từ tệp rồi đưa ra tổng các số dương và ghi vào tệp soam.txt các số nguyên âm .
Lập chương trình có sử dụng thử tục (Procedure) để tính lũy thừa nguyên của cơ số nguyên dương. Cả hai số này được đọc vào từ bàn phím. Khi người dùng nhập vào cơ số âm thì phải thông báo: “không có lũy thừa cơ số âm, vào lại dữ liệu”.(pascal)
Viết chương trình pascal để nhập 1 mảng gồm n số nguyên dương a1...an.sau đó in ra màn hình giá trị lớn nhất của dãy số
Dãy số A1, A2,...,AN được gọi là dãy số đặc biệt nếu nó thỏa mãn các điều kiện sau:
- Là dãy số giảm dần
- Với mỗi Ai thì Ai hoặc là số nguyên tố hoặc là ước của một trong các số từ A1 đến Ai-1.
Hãy tìm dãy số đặc biệt dài nhất bắt đầu từ N
Nhập vào mảng 1 chiều gồm n phân tử là các số nguyên sau đó đếm trong mảng có bao nhiêu số lẻ
Viết chương trình nhập vào bàn phím mảng 1 chiều A gồm N(N<=200) phần tử nguyên .Tính và viết ra màn hình tổng các số âm có trong mảng A (chương trình sử dụng chương trình con kiểm tra số nguyên âm của số m để viết)
