Viết CT nhập vào 1 sâu,đếm số lượng kí tự là chữ số trong sâu
Những câu hỏi liên quan
Viết chương trình pascal nhập vào một sâu kí tự sau đó máy tính đưa ra màn hình máy tính số lượng kí tự là dấu cách trong câu
var st:string;
i,dem:integer;
begin
write('Nhap xau ki tu: ');readln(st);
for i:=1 to length(st) do
if st[i]=' ' then dem:=dem+1;
write('so ki tu la dau cach la ',dem);
readln;
end.
Đúng 0
Bình luận (0)
Viết phương trình nhập vào 1 xâu kí tự , và đếm số lượng kí tự 'A' có trong xâu .
program ki_tu;
uses crt;
var s: string;
d,i,n: integer;
begin
clrscr;
write('nhap xau s: ');readln(s);
n:= length(s);
s:=upcase(s);
write('xau s sau khi duoc in hoa la: ');
writeln(s);
d:=0;
for i:= 1 to n do
if s[i] = 'A' then d:= d+1 ;
writeln('chu cai A xuat hien ',d,' lan');
readln
end.
Đúng 1
Bình luận (0)
Uses crt;
Var st:string;
D,i,dem:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
Dem:=0;
For i:=1 to d do
If st[i]='A' then inc(dem);
Writeln(dem);
Readln;
End.
Đúng 0
Bình luận (0)
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.
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘a’<=a[i]) and (a[i]<=’z’)
Dem:= Dem+1;
Writeln(Dem);
Readln
End.
Đúng 1
Bình luận (0)
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.
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘A’<=a[i]) and (a[i]<=’Z’) then
Dem:= Dem+1;
Writeln(Dem);
Readln
End.
Đúng 0
Bình luận (0)
Bài 1. Nhập vào xâu S1, hãy đếm số kí tự là chữ cái tiếng Anh (kể cả chữ in thường hay in hoa)? Bài 2. Nhập vào xâu S1, hãy đếm các kí tự không là số, không là chữ cái tiếng Anh trong xâu 51? Bài 3. Nhập vào 1 xâu nhị phân bao gồm các ki tự 0 và 1. Viết chương trình chuyển đổi số nhị phân đó sang số thập phân? Mn giúp m vs, m học python
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 và chữ thường) có trong xâu.
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.
Đúng 1
Bình luận (0)
Viết chương trình a,Nhập vào một xâu kí tự b,đế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 xâu S.a, Xoá hết kí tự là chữ trong xâu.b, đếm xem xâu có bao nhiêu nguyên âm. c, đếm số lần xuất hiện của kí tự k đc nhập bào từ bàn phím
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
for i:=1 to d do
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then delete(s,i,1);
writeln('Xau sau khi xoa het ki tu chu la: ',s);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập từ bàn phím 1 xâu kí tự S đếm số lượng kí tự B trong xâu S ( không phân biệt chữ hoa và chữ thường)
Program HOC24;
var s: string;
i,d: byte;
begin
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do if (s[i]='b') or (s[i]='B') then d:=d+1;
write('Co ',d,' ki tu B trong xau');
readln
end.
Đúng 1
Bình luận (1)