Chỉ em cách làm mí bài ni vs

[Snow Fox]

1. viết chương trình nhập vao một xâu rồi thông báo ra màn hình số lượng kí tự của xâu ra màn hình số lượng kí tự của xâu không thuộc bảng chữ cái.
2. Viết chương trình nhập vào một xâu sau đó tạo một xâu mới từ xâu đã cho bằng cách lấy kí tự ở vị trí lẻ rồi tiếp đến chẵc chẵn rồi lại lẻ rồi chẵn chẵn....(aanbndhcs=> aabndcs)
3. viết chương trình nhập vào hai xâu có đọ dài bằng nhau sau đó in ra màn hình các kí tự của hai xâu xen kẽ nhau. (abcd va efgh => aebfcgdh hoặc eafbgchd)
( tất cả là theo pas ở lớp 9)
Thanks m.n!!!!

[HGMinh95]

Đây đều là những bài cơ bản, mình nghĩ bạn suy nghĩ 1 chút là ra thôi.

Đây là code của mình, bạn có thể tham khảo thêm:

// Bai 1
var s: string;
    c, i: byte;
begin
     readln(s);        c:=0;
     for i:=1 to length(s) do
         if not (ord(s[i]) in ([65..90] + [97..122])) then c:=c+1;
     write(c);
     readln
end.

// Bai 2
var s: string;
    i: byte;
begin
     readln(s);
     write(s[1], s[2]);
     for i:=3 to length(s) do
         if (i+1) mod 4 <> 0 then write(s[i]);
     readln
end.

// Bai 3
var s1, s2: string;
    i: byte;
begin
     readln(s1);
     readln(s2);
     for i:=1 to length(s1) do
         write(s1[i],s2[i]);
     readln
end.

[Snow Fox]

thanh kiu ^^....mong a giúp em dài dài..

[lehang_gb1]

{Nhap vao 1 xau, thong bao ra man hinh so luong cua xau
khong thuoc bang chu cai}
Var S:string;
i,d:integer;
Begin
write('Nhap vao 1 xau:'); Readln(S);
For i:=1 to length(S) do S[i]:=upcase(S[i]);
d:=0;
For i:=1 to length(S) do
if not((S[i]>='A') and(S[i]<='Z')) then inc(d);
write('So ki tu trong xau khong thuoc bang chu cai la:',d);
ReadlnEnd.