Hãy VCT nhập vào một xâu S bất kì (có cả kí tự và kia tự số) và đưa ra màn hình có bao nhiêu kí tự là chữ cái, bao nhiêu kí tự là số?. In ra màn hình xâu sau khi đã xoá 5 kí tự đầu tiên của xâu. VD: S=‘TIN11A’ => 4 kí tự chữ cái, 2 kí tự chữ số In ra xâu sau khi đã xoá 5 kí tự đầu tiên: ‘A’ Mọi người giúp mình với🙏🏻🙏🏻
1 câu trả lời
uses crt;
var s : string;
i, d1, d2: integer;
begin
clrscr;
d1 := 0; d2 := 0;
write('nhap xau ki tu : '); readln(s);
for i:= 1 to length(s) do
begin
if s[i] in ['A'..'Z'] then d1 := d1 + 1;
if s[i] in ['a'..'z'] then d1 := d1 + 1;
if s[i] in ['1'..'9'] then d2 := d2 + 1;
end;
writeln(d1,' ki tu chu cai ');
writeln(d2,' ki tu chu so ');
delete(s,1,5);
writeln('xau sau khi xoa : ', s);
readln
end.
Câu hỏi trong lớp
Xem thêm
