Viết chương trình nhập vào một xâu S gồm có các chữ cái và các chữ số. Đưa ra màng hình số lượng kí tự chữ cái và số lượng kí tự chữ số.
2 câu trả lời
program dem;
uses crt;
var s:string;
i,d,d1:byte;
Begin
clrscr;
write('S: ');readln(s);
for i:=1 to length(s) do
begin
if s[i] in ['0'..'9'] then d:=d+1;
if s[i] in ['a'..'z'] then d1:=d1+1;
end;
writeln('Xau co ',d,' ky tu chu so');
write('Xau co ',d1,' ky tu chu cai');
readln
End.
program bai_Giai;
uses crt;
var s:string;i,dems,demc:longint;
begin
clrscr;
write('nhap xau:');readln(s);
demc:=0;
dems:=0;
for i:=1 to length(s)do
begin
if(s[i] in ['A'..'z'])then inc(demc);
if(s[i] in ['0'..'9'])then inc(dems);
end;
writeln('co ',dems,' ki tu chu so trong xau');
write('co ', demc,' ki tu chu trong xau');
readln
end.
Câu hỏi trong lớp
Xem thêm
