Những câu hỏi liên quan
nguyễn linh
Xem chi tiết
Hiếu
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 3 2021 lúc 21:36

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(s);

writeln('Cac ki tu so co trong xau S:'); 

dem:=0;

for i:=1 to d do 

  if s[i] in ['0'..'9'] then

begin

write(s[i]:4);

inc(dem);

end;

writeln;

writeln('So ki tu chu so co trong xau S: ',dem);

for i:=1 to d do 

  if s[i] in ['0'..'9'] then s[i]:='A'

writeln('Xau sau khi doi la: ',s);

readln;

end.

Bình luận (0)
Nguyễn Thảo Vy
Xem chi tiết
Lê Phú
Xem chi tiết
Phía sau một cô gái
27 tháng 3 2023 lúc 20:28

s = input("Nhập xâu S: ")

k = input("Nhập kí tự k: ")

count = 0

for c in s:

     if c == k:

          count += 1

print("Số lần xuất hiện của kí tự k trong xâu S là:", count)

Bình luận (0)
Lan Anh
Xem chi tiết
Minh Nguyễn
Xem chi tiết
HT thai an
Xem chi tiết
spiderman
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 21:53

Program HOC24;

var s,a,b: string;

begin

wirte('Nhap xau S:' ); readln(s);

for i:=1 to length(s) do

if s[i] in ['A'..'z'] then a:=a+s[i] else if s[i] in ['0'..'9'] then b:=b+s[i];

writeln('Xau A: ',a);

write('Xau B : ',b);

readln

end.

Bình luận (0)
Hong Trần
Xem chi tiết
Hong Trần
17 tháng 3 2021 lúc 18:04

Giúp mk với mai mk phải nộp r

Bình luận (0)
Minh Lệ
17 tháng 3 2021 lúc 18:36

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.

Bình luận (1)