Question

Cho một xâu ký tự. Đếm số lượng các ký tự số, số lượng các ký tự chữ cái. Ví dụ dữ liệu vào/ra:

INPUT: Ky thi hsg nam hoc 2022 2023

OUTPUT: So ky tu so: 8

                So ky tu chu cai: 14

Answer 1

Program HOC24;

var i,d1,d2: byte;

s: string;

begin

write('Nhap xau: '); readln(s);

d1:=0; d2:=0;

for i:=1 to length(s) do

begin

if s[i] in ['0'..'9'] then d1:=d1+1;

if s[i] in ['A'..'z'] then d2:=d2+1;

end;

writeln('So ky tu so: ',d1);

write('So ky tu chu cai: ',d2);

readln

end.