mọi người giúp e vs ạ làm bằng pascal e xin cảm ơn ạ

Bài 1. RÔ BỐT (5 điểm)

Nhân dịp Tuấn đạt kết quả cao trong Kỳ thi Olympic 23/4, mẹ của Tuấn thưởng cho Tuấn một con Rô bốt có thể nhận dạng giọng nói con người. Nếu Tuấn hô “trái” thì ngay lập tức Rô bốt bước sang trái một bước, còn nếu Tuấn hô “phải” thì Rô bốt sẽ bước sang phải một bước.

Yêu cầu: Hỏi sau N lần Tuấn hô (“trái” tương ứng với số 0, “phải” tương ứng với số 1) thì Rô bốt cách vị trí ban đầu bao nhiêu bước?

Dữ liệu vào: File văn bản ROBOT.INP

- Dòng thứ nhất là số N (1 ≤ N ≤ 10⁵);

- Dòng thứ 2 gồm N số 0 hoặc 1, mỗi số cách nhau một khoảng trắng.

Dữ liệu ra: File văn bản ROBOT.OUT

- Gồm khoảng cách của Rô bốt sau N lần hô so với vị trí ban đầu mà Rô bốt đứng.

Ví dụ:

Bài 2. MUA HÀNG (5 điểm)

Tâm mở một cửa hàng bán văn phòng phẩm. Trong ngày khai trương, để ”mua may bán đắt”, Tâm quan niệm rằng khi khách hàng mua một sản phẩm nào đó thì phải trả đúng với số tiền của sản phẩm để Tâm không phải trả lại tiền thừa cho khách hàng.

Nam là bạn thân của Tâm đến mua hàng. Nam hiện có N tờ tiền, mỗi tờ tiền M đều có giá trị khác nhau. Giả thiết rằng với số tiền của Nam hiện có đều có thể mua được một số sản phẩm trong cửa hàng.

Yêu cầu: Vì Nam không quen với việc tính toán, em hãy giúp Nam tính xem với N tờ tiền như vậy thì Nam không thể mua sản phẩm có giá trị nhỏ nhất (Min) là bao nhiêu?

Dữ liệu vào: File văn bản BUY.INP

- Dòng thứ nhất là số N (0<N≤100)

- Dòng thứ hai có N tờ tiền, mỗi tờ tiền M cách nhau một khoảng trắng (0<M<10⁹).

Dữ liệu ra: File văn bản BUY.OUT

- Gồm một số nguyên dương Min cần tìm.

Ví dụ:

Bài 3. SỐ MAY MẮN (5 điểm)

Công ty Tin học ACB tổ chức buổi hội thảo nhằm giới thiệu phần mềm mới của công ty. Buổi hội thảo có N khách mời tham dự và trên mỗi ghế ngồi có ghi số ghế là M. Trước khi kết thúc hội thảo, công ty yêu cầu các khách mời tự tìm cho mình một số cuối cùng dựa trên số ghế mình ngồi (số cuối cùng được xác định là tổng các chữ số của số đó, sau đó lại tính tổng các chữ số của số mới tạo được cho đến khi chỉ còn một chữ số duy nhất). Sau khi kết thúc hội thảo, công ty tổ chức trao quà cho các khách mời có số cuối cùng trùng với số may mắn (số may mắn là số mà có số lượng số cuối cùng nhiều nhất do các khách mời tìm được).

Ví dụ: Số ghế là M = 29 thì số cuối cùng được tạo ra là 2 (29 ® 11 ® 2).

Yêu cầu: Gọi K là số may mắn hãy tìm số may mắn đó? (nếu có nhiều số lượng số cuối cùng bằng nhau thì chọn số cuối cùng mà khách tìm được có giá trị nhỏ nhất.

Dữ liệu vào: File văn bản LUCKY.INP

- Dòng thứ nhất là số N (1 ≤N≤10⁵);

- N dòng tiếp theo là tương ứng với số ghế M của khách mời (0 ≤ M ≤ 10⁹).

Dữ liệu ra: File văn bản LUCKY.OUT

- Gồm một số K cần tìm.

Ví dụ:

Thầy Phú phát kẹo cho các em học sinh theo qui tắc sau: Em đầu tiên được nhận 1 viên kẹo, em tiếp theo nhận nhiều hơn em trước đó 3 viên. Lớp có N học sinh tuy nhiên Thầy chỉ mang theo K cái kẹo thôi. Bạn hãy tính giúp thầy số lượng học sinh nhiều nhất nhận được kẹo. Thầy Phú rất nguyên tắc nên phát đúng theo quy định trên, kẹo còn thừa không đủ để phát theo quy tắc trên thì Thầy đem về cho cu Sắn lập trình pascal

một thanh đồng chất,tiết diện đều,đặt trên thành bình của 1 bình đựng nước,đầu kia giữ bằng bản lề.khi thanh cân bằng,mực nước ở chính giữa thanh.tìm khối lượng riêng của thanh,biết klr của nước là Dn=1000kg/m3

Cho dãy số A gồm các số nguyên tố 2, 3, 5, 7, .... Ghép hai số nguyên tố cạnh nhau được một dãy số mới 23, 35, 57, ... Trong dãy số mới này có những số là số nguyên tố 23, 57, ... được gọi là dãy các số nguyên tố ghép B. nhập vào 1 số tự nhiên k in ra man hinh so nguyen tố ghép thứ k trong dãy nguyên tố ghép b

nhập 2 ra 57 Số nguyên tố ghép thứ 2 trong dãy số nguyên tố ghép B là 57

làm theo tập tin pascal

Một dãy số gọi là dãy số bậc thang nếu nó có từ hai chữ số trở lên và chữ số đứng sau hơn chữ số đứng trước 1 đơn vị. Nhập vào từ bàn phím xâu S gồm toàn các ký tự số. Hãy in ra màn hình các thông tin sau :

Dòng 1 : số các dãy con bậc thang có 3 chữ số trong xâu S

Dòng 2 : độ dài của dãy con dài nhất trong S

Làm theo tập tin pascal

Mọi người giúp e vs ạ

Tổng cặp số Tên chương trình CAPSO.PAS

Cho dãy số nguyên dương a₁, a₂, ..., a_n, trong đó có thể có những số bằng nhau. Với số nguyên x cho tr­ước (1 £ x £ 2000) hãy xác định số cặp (a_i, a_j) thỏa mãn các điều kiện:

· a_i + a_j = x.

· 1 £ i < j £ n.

Dữ liệu vào: Từ file văn bản CAPSO.INP:

- Dòng đầu tiên chứa số nguyên n (1 £ n £ 100).

- Dòng tiếp theo chứa n số nguyên a₁, a₂, . . ., a_n

- Dòng cuối cùng chứa số nguyên x.

Kết quả: Ghi ra file văn bản CAPSO.OUT, gồm một số nguyên duy nhất là số cặp tìm được.

Ví dụ:

Cho một dãy số nguyên gồm n phần tử i[1], i[2], … i[n]. Biết rằng dãy con tăng đơn điệu là 1 dãy a[i1],…, a[ik] thỏa mãn: i1 < i2 < … < ik và a[i1] < a[i2] < .. < a[ik]. Hãy cho biết dãy con tăng đơn điệu dài nhất của dãy này có bao nhiêu phần tử pascal

Làm theo kiểu tập tin