Quảng cáo
1 câu trả lời 368
program DemSoKiTuA;
var
str: string;
i, count: integer;
begin
write('Nhap vao mot xau ki tu: ');
readln(str);
// Chuyen xau thanh in hoa
for i := 1 to length(str) do
str[i] := upcase(str[i]);
// Dem so luong ki tu A
count := 0;
for i := 1 to length(str) do
if str[i] = 'A' then
inc(count);
writeln('So luong ki tu A trong xau la: ', count);
readln;
end.
var
str: string;
i, count: integer;
begin
write('Nhap vao mot xau ki tu: ');
readln(str);
// Chuyen xau thanh in hoa
for i := 1 to length(str) do
str[i] := upcase(str[i]);
// Dem so luong ki tu A
count := 0;
for i := 1 to length(str) do
if str[i] = 'A' then
inc(count);
writeln('So luong ki tu A trong xau la: ', count);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86402
Gửi báo cáo thành công!
