nhập vào 1 xâu đếm xem trong xâu có bao nhiêu nguyên âm
giúp e vs 8h 24/7 e nộp r
Những câu hỏi liên quan
Nhập vào 1 xâu S từ bàn phím đếm xem trong xâu S có bao nhiêu vần " An "
var s:string;
i,d:integer;
begin
write('Nhap xau s = ');readln(s);
for i:=1 to length(s) do
if (s[i] = 'A') and (s[i+1] = 'n') then d:=d+1;
write('Co ',d,' van An');
readln
end.
Đúng 1
Bình luận (0)
viết công thức nhập vào 1 xâu. đếm xem trong xâu vừa nhập có bao nhiêu chữ, bao nhiêu số A nêu ý tưởng B viết ct có giải thích
uses crt;
var st:string;
a:array[1..255]of string;
i,n,d,kt,j,dem,dem1,dem2:integer;
begin
clrscr;
readln(st);
d:=length(st);
dem:=1;
a[1]:=st[1];
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if a[j]=st[i] then kt:=1;
if kt=0 then
begin
dem:=dem+1;
a[dem]:=st[i];
end;
end;
dem1:=0;
dem2:=0;
for i:=1 to dem do
begin
if st[i] in ['A'..'Z'] then dem1:=dem1+1;
if st[i] in ['a'..'z'] then inc(dem1);
if st[i] in ['0'..'9'] then inc(dem2);
end;
writeln(dem1);
writeln(dem2);
readln;
end.
Đúng 1
Bình luận (0)
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)
vViết chương trình nhập vào một xâu ký tự sau đó đếm xem trong xâu có bao nhiêu ký tự "a"
Var st:string;
i,dem:integer;
Begin
Write('Nhap xau ky tu ');readln(st);
For i:=1 to length(st) do
If st[i] = 'a' then dem:=dem+1;
Write('So ky tu a co trong xau la ',dem);
Readln;
End.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 xâu sau đó đếm xem trong xâu có bài nhiêu chữ A
chuoi = input("Nhập chuỗi: ")
so_lan_A = chuoi.count('A')
print("Số lần xuất hiện của ký tự A trong chuỗi:", so_lan_A)
Đúng 0
Bình luận (0)
Bài 1: Viết chương trình nhập vào số nguyên dương n (0<n<100) và khởi tạo dãy gồm n số nguyên Ai (-32000<Ai<32000). Đếm và in ra màn hình các số dương có 3 chữ số?Bài 2: Viết chương trình nhập vào một xâu kí tự, đếm xem trong xâu có bao nhiêu kí tự chữ số 1?
Xem chi tiết
Viết chương trình nhập vào 1 xâu kí tự và đếm trong xâu có bao nhiêu từ ' tiền'
string = input("Nhập vào một xâu kí tự: ")
count = string.count('tiền')
print('Xâu kí tự có ', count, 'từ "tiền"')
Đúng 0
Bình luận (0)
CHO XÂU S 1.Đếm xem có bao nhiêu kí tự là chữ số. 2.Đếm xem có bao nhiêu kí tự là chữ cái. 3.Xoá các kí tự trắng. 4.Kiểm tra xâu S có đối xứng không . Giúp e với.
uses crt;
var s:string;
i,d,dem,dem1,kt:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
dem:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then inc(dem);
writeln('So ki tu la chu so la: ',dem);
dem1:=0;
for i:=1 to d do
if (st[i] in ['A'..'Z']) or (st[i] in ['a'..'z']) then inc(dem1);
writeln('So ki tu la chu cai la: ',dem1);
write('Xau sau khi xoa ki tu trang la: ');
for i:=1 to d do
if st[i]<>#32 then write(st[i]);
writeln;
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln('Xau doi xung')
else writeln('Xau khong doi xung');
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào một xâu. Đếm trong xâu có bao nhiêu từ
Program HOC24;
var s: string;
i,d: byte;
begin
write('Nhap xau: '); readln(s);
while s[1]=#32 do delete(s,1,1);
while length(s)=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
d:=0;
for i:=1 to length(s) do if s[i]=#32 then d:=d+1;
write('Trong xau co ',d+1, ' tu');
readln
end.
Đúng 1
Bình luận (0)