Ngày tháng năm sau ngày được nhập N ngày

Đề bài: Nhập ngày tháng năm. Hãy cho biết ngày tháng năm sau đó N ngày. var d,m,y,n:integer; Function      Songay(thang,nam: Integer):Intege...

In ra tệp các phần tử xuất hiện trong tệp từ k lần trở lên

Nhập một dãy A (mỗi số chỉ xuất 1 lần) có N (< 40) số tự nhiên và 1 số K. Hãy xuất ra các phần tử có số lần xuất hiện trong dãy A từ K...

Tìm các số tổng các các ước của số này bằng số kia và ngược lại

Hai số m,n gọi là bạn của nhau nếu tổng các ước của m bằng n và ngược lại.Tìm tất cả các số là bạn của nahu và nhỏ hơn 10001. Ý tưởng: Thay ...

Kiểm tra số chính phương trong mảng 1 chiều

Trước hết, chúng ta sẽ tìm hiểu khái niệm về số chính phương. Số chính phương là gì? Số chính phương là một số mà tự nó là căn bậc...

Bài tập dãy Fibonaci và số nguyên tố

Dãy FIBONACI là dãy được xác định như sau: F(0) = 0; F(1) = 1 và F(n) = F(n-1) + F(n-2) với n = 2, 3... Hãy viết chương trình máy tính đ...

Tổng m số tận cùng của n trong pascal

Nhập vào 1 số tự nhiên n* và nhập vào m, sau đó tính tổng m các số tận cùng của n. vd: n = 365 m =2 tổng = 5+6=11. Cách 1:  uses crt; var n:...

Liệt kê dãy nhị phân cụm "01" xuất hiện đúng 2 lần

Đề bài: Hãy liệt kê dãy nhị phân độ dài n mà trong đó cụm "01" xuất hiện đúng 2 lần. uses crt; var s,n,j,i:integer; a:Array[1..100...

Tính chữ số 0 tận cùng của n!

Đề bài: Nhập vào n (1<=n<=30000), hãy in ra số chữ số 0 cuối cùng của n giai thừa. Ý tưởng cách tìm: Xét tất cả các số chia hết cho 5....

Đổi từ hệ 10 sang hệ 2 (hệ thập phân sang nhị phân)

Nguyên tắc của phương pháp chuyển đổi từ hệ cơ số 10 sang hệ cơ số 2 là lấy số cần chuyển đổi chia cho 2 (kết quả chỉ lấy phần nguyên), sau ...

Xử lý tệp văn bản

Sử dụng ngôn ngữ lập trình pascal viết chương trình xử lý tệp văn bản với các yêu cầu sau: * Đọc tệp văn bản và in ra màn hình. * Sữa Tệp vă...

Cho biết tháng đó có nhiêu ngày

Đề: Nhập vào 1 năm, 1 tháng và cho biết tháng đó có bao nhiêu ngày? uses crt; var a,b:integer;      bo:boolean; begin write('Nhap nam :...

Xâu thuần nhất (Giải nén xâu trong pascal)

Xâu kí tự thuần nhất được định nghĩa là xâu chỉ bao gồm các chữ cái tiếng anh. Một xâu thuần nhất có thể được viết thu gọn, bao gồm các số ...

In ra màn hình pascal phần tử có dạng '3 mũ k cộng 2'

Viết chương trình nhập mảng 1 chiều có N phần tử. In ra màn hình các phần tử có dạng 3 k +2 (k=0,1,2,3...). Ý tưởng: Viết hàm kiểm tra xem p...

Bài tập Pascal - Giải bài tập Pascal (cơ bản)

Nhằm đáp ứng nhu cầu hỏi đáp về Pascal của anh em, đây sẽ là khu vực hỏi đáp, giải các bài tập về Pascal. Trước khi đặt câu hỏi, bạn cần lưu...

Thuật toán tìm kiếm 1 số trong mảng 2 chiều (Pascal)

Viết chương trình Pascal tìm một số (phần tử) trong mảng hai chiều. In tổng số lần và vị trí xuất hiện của các phần tử ra màn hình. Program...

Xóa các phần tử trùng nhau trong mảng 1 chiều (pascal)

Nhập vào mảng 1 chiều gồm 1 dãy số nguyên N phần tử. Hãy xóa các phần tử trùng nhau trong mảng và in kết quả ra màn hình. Ý tưởng: Duyệt mản...

In bảng mã ASCII của các ký tự chữ cái trong pascal

Viết chương trình Pascal in mã ASCII của các ký tự. Khá đơn giản chỉ với 1 lệnh for. Program Mang_Ky_Tu;    Var       a:Array[Char] Of Integ...

Xóa 1 phần tử trong mảng 1 chiều

Viết CT nhập từ bàn phím mảng 1 chiều và xóa 1 phần tử của mảng có n phần tử. var   n,i,q,k,p:integer;   a,b:array [1..1000] of integer; beg...

Nhập thêm 1 phần tử vào mảng 1 chiều

Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. var   n,i,q,k,p,:integer;   a,b:array [1..1000] of i...

Tìm tổng các số bất kỳ từ dãy 1,2,2,3,3,3,4,4,4,4...

Cho mảng A là dãy số 1,2,2,3,3,3,4,4,4,4,5,5,5,5,5.... Nhập vào số m, n (m<=n<=100000). In ra tổng A[m]+A[m+1]+...+A[n-1]+A[n].   prog...