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ệt chữ hoa hay chữ thường
Câu 2: Viết chương trình nhập vào số nguyên dương n n nhỏ hơn hoặc bằng 100 và dãy a gồm n số nguyên A1 A2……An tính và in lên màn hình tổng dãy số đó
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.