----- Nội dung dịch tự động từ ảnh -----
Cầu 27 (1đ): [Báo lỗi câu hỏi]
Đoạn chương trình sau cho kết quả là gì?
S:= "Chao cac ban':
For i:= 1 to lenghth(s) do
If si) = 'a' then write (i. ):
O37 11
11
Câu 28 (1đ): [Báo lỗi câu hỏi]
Cho mảng A gồm n=10 số nguyên như sau: A(30, 21. -12, 56, 13, 26, -45, 76, 25, 30). Tính giá trị của S sau khi thực hiện đoạn chương trình sau:
S:=0;
For i:=1 to n do
if (i mod 3 = 2) and (Afi) div 2<10) then S:=S+Ail:
O34
110
116
13
Câu 29 (1đ): [Báo lỗi câu hỏi]
Cho xâu s= 'Ha Noi
Dem:= 1:
thu do cua VIET NAM". Kết quả của đoạn chương trình sau là gì?
For i:= 1 to N do
If s[i) = 'a' then dem:=dem+0;
Writeln(dem);
O3
Câu 30 (1đ): [Báo lỗi câu hỏi]
Chương trình sau đây thực hiện công việc gì?
Var s. t: string:
I: integer;
Begin
Readln(s): t:= ":
For i:= 1 to length(s) do
if (s)>= 'A') and (s(i]<= 'Z') then t:=t+s[i];
Readin;
End.
Đếm số kí tự trong xâu s.
Tạo ra một xâu mới bao gồm các kí tự là chữ in hoa trong xâu s.
Tạo ra một xâu mới bao gồm các kí tự là chữ thường trong xâu s.
Đếm số lượng kí tự là chữ in hoa trong xâu s.