Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

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.

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)

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.

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

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.