Viết chương trình nhập vào xâu S
a) in ra màn hình cho biết số lượng con số có trong xâu
b) cho bt số lượng chữ cái trong xâu
Viết chương trình nhập vào xâu S a) in ra màn hình cho biết số lượng con số có trong xâu b) cho bt số lượng chữ cái trong xâu
By Madeline
program phuongt;
uses crt;
var s: string;
function kt: integer;
var i, k, d: integer;
begin
d:=0;
k:=0;
for i:=1 to length(s) do
begin
if s[i] in [‘0’..’9′] then d:=d+1;
if s[i] in [‘a’..’z’]+[‘A’..’Z’] then k:=k+1;
end;
writeln(‘So luong con so co trong xau: ‘, d);
write(‘So luong chu cai co trong xau: ‘, k);
end;
begin
clrscr;
write(‘Nhap xau s = ‘); readln(s);
kt;
readln
end.
program dem_so_chucai;
uses crt;
var s:string;
{—Ham-dem-so—}
function demso(s:string):byte;
var i,d:byte;
begin
d:=0;
for i:=1 to length(s) do
if s[i] in [‘0’..’9′] then d:=d+1;
demso:=d;
end;
{—Ham-dem-chu-cai—}
function demcc(s:string):byte;
var i,d:byte;
begin
d:=0;
for i:=1 to length(s) do
if (s[i] in [‘a’..’z’]) or (s[i] in [‘A’..’Z’]) then d:=d+1;
demcc:=d;
end;
{—Chuong-trinh-chinh—}
begin
clrscr;
write(‘Nhap xau: ‘); readln(s);
writeln(‘a. Co ‘,demso(s),’ chu so’);
writeln(‘b. Co ‘,demcc(s),’ chu cai’);
readln;
end.