viết chương trình nhập vào từ bàn phím 1 xâu kí tự bất kì và đưa ra màn hình số lượng kí tự là chữ cái in hoa có trong xâu
2 câu trả lời
uses crt;
var s:string;
i,dem:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then inc(dem);
write('So ky tu hoa trong xau la: ',dem);
readln
end.
program oken;
uses crt;
var s: string;
i,dem: byte;
begin
clrscr;
write('Nhap 1 xau bat ky: '); readln(s);
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then
dem:=dem+1;
writeln('So ky tu hoa trong xau: ',dem);
readln;
end.
Câu hỏi trong lớp
Xem thêm
