Câu 1: cho xâu S chỉ chứa các chữ cái tiếng Anh viết đoạn chương trình để tính và thông báo ra màn hình số chữ cái tiếng Anh trong xâu S không phân bi

Câu 1:

Program Word;
Uses crt;
Var S: String;
    i, res: longint;

Begin
        Clrscr;
        Write(‘Nhap S: ‘); Readln(S);
        res := 0;
        For i:=1 to length(S) do
                If Upcase(S[i]) in [‘A’ .. ‘Z’] then inc(res);
        Write(‘Co ‘,res,’ chu cai tieng Anh’);
        Readln
End.

Câu 2:

Program Mang;
Uses crt;
Var A: array[1..10000] of longint;
    n, i, res: longint;

Begin
        Clrscr;
        Write(‘Nhap n: ‘); Readln(n);

        res := 0;

        For i:=1 to n do
        Begin
                Write(‘A[‘,i,’] = ‘);
                Readln(A[i]);
                res := res + A[i];
        End;

        Write(‘Tong = ‘,res);
        Readln
End.