Phạm Hữu Thạch
Hỏi từ APP VIETJACK
Viết chương trình nhập vào một xâu và thông báo ra màn hình số lần xuất hiện của các kí tự số trong xâu (Pascal). Giúp e vs. E cảm ơn.
Quảng cáo
1 câu trả lời 319
2 năm trước
uses crt;
var s:string[30];
ch,x:char;
i:byte;
dem:array['A'..'Z']of byte;
BEGIN
clrscr;
write('Nhap vao xau s=');
readln(s);
for ch:='A' to 'Z' do dem[ch]:=0;
for i:=1 to length(s) do
begin
x:=upcase(s[i]);
if (x>='A') and (x<='Z')
then
dem[x]:=dem[x]+1;
end;
for ch:='A' to 'Z' do
if dem[ch]<>0 then
writeln('So luong ki tu ',ch,'la: ',dem[ch]);
readln;
END.
var s:string[30];
ch,x:char;
i:byte;
dem:array['A'..'Z']of byte;
BEGIN
clrscr;
write('Nhap vao xau s=');
readln(s);
for ch:='A' to 'Z' do dem[ch]:=0;
for i:=1 to length(s) do
begin
x:=upcase(s[i]);
if (x>='A') and (x<='Z')
then
dem[x]:=dem[x]+1;
end;
for ch:='A' to 'Z' do
if dem[ch]<>0 then
writeln('So luong ki tu ',ch,'la: ',dem[ch]);
readln;
END.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!
