Code giúp em mấy bài Pascal

[phuongbeea2]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Câu 1: Sắp số trong xâu
Nhập 1 xâu s bao gồm số và kí tự, in ra xâu đã sắp xếp số theo thứ tự tăng dần còn vị trí các kí tự vẫn giữ nguyên.

Câu 2: Kí tự dài nhất trong xâu
Nhập vào xâu s (a-z) in ra kí tự xuất hiện nhiều nhất trong xâu và số lần xuất hiện. Nếu có nhiều trường hợp thì in ra trường hợp đầu tiên

Câu 3: Từ dài nhất
In ra từ dài nhất trong một xâu nhập từ bạn phím và số kí tự của từ này. Nếu có nhiều kí tự có độ dài bằng nhau thì in ra hết

Câu 4: Dãy con dài nhất
Cho một mảng số nguyên gồm n phần tử. Tìm dãy con có m phần tử (m<=n) sao cho dãy con này có tổng lớn nhất. (Dãy con là dãy liên tiếp nhau trong mảng).
Nhập dãy gồm n phần tử, nhập m, in ra dãy con m phần tử.

Câu 5: Xóa kí tự trùng
Viết chương trình nhập vào 1 xâu và xóa hết các kí tự liên tiếp giống nhau trong xâu chỉ chừa lại một.

 

[vao_lop_10]

Bài 2 đây bạn
USES crt;
VAR st:STRING;
i,j,max:INTEGER;
a,kytu: CHAR;
b: ARRAY[97..122] OF BYTE;
BEGIN
clrscr;
write('Nhap xau (a-z): '); readln(st);
FOR i:= 1 TO length(st) DO
BEGIN
a:= st;
FOR j:= 97 TO 122 DO
IF ord(a) = j THEN b[j]:= b[j] + 1;
IF (ord(a) < 97) OR (ord(a)>122) THEN halt;
END;
max:= b[97];
FOR i:= 98 TO 122 DO
IF max < b THEN
begin
max:= b;
kytu:= chr(i);
END;
write('Ky tu xuat hien nhieu nhat la ',kytu,', xuat hien ',max,' lan');
readln
END.

 

[vao_lop_10]

Bài 5 đây :
USES crt;
VAR st,a:STRING;
i,dem: INTEGER;
BEGIN
clrscr;
write('Nhap chuoi: '); readln(st);
FOR i:= 1 TO length(st) DO
IF st <> st[i+1] THEN
BEGIN
a[dem]:= st;
dem:= dem + 1;
END;
write(st[1],a);
readln
END.