uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);
writeln(dem);
readln;
end.
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);
writeln(dem);
readln;
end.
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là chữ cái (chữ thường) có trong xâu.
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa) có trong xâu.
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là dấu cách có trong xâu.
Viết chương trình nhập vào 1 xâu kí tự từ bàn phím và đưa xâu đó ra màn hình là các chữ cái in hoa
Viết chương trình nhập xâu S từ bàn phím. Đếm các kí tự không phải là chữ in thường và không phải là dấu chấm có trong S rồi đưa kết quả ra màn hình.
Viết Chương trình nhập vào 1 xâu S và 1 kí tự k hãy đếm các kí tự trong xâu S bằng k và đưa kết quả ra màn hình
Viết chương trình bằng ngôn ngữ lập trình pascal nhập vào một xâu kí tự.Đếm và in ra màn hình số kí tự là dấu cách có trong xâu,mọi người giúp em với ạ
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là số có trong xâu.
Var a: string;
I,dem: integer;
Begin
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘0’<=a[i]) and (a[i]<=’9’) then dem:=dem+1;
Writeln(dem);
Readln
End.
Cho một xâu kí tự S không quá 255 kí tự gồm kí tự chữ cái và kí tự chữ số. Hãy in ra xâu vửa nhập và tính tổng các kí tự chữ số có trong xâu. Ngược lại nếu xâu chỉ gồm kí tự chữ cái hoặc chỉ gồm kí tự chữ số thì in ra “Sai yeu cau! Khong thuc hien!”.
- Dữ liệu vào: Cho trong file XAU.INP gồm 1 dòng duy nhất là xâu S.
- Dữ liệu ra: Ghi vào file XAU.OUT theo cấu trúc: Gồm 2 dòng:
+ Dòng thứ nhất: Ghi ra xâu vừa nhập.
+ Dòng thứ hai ghi tổng các kí tự chữ số của xâu S.