Những câu hỏi liên quan
Lê Tuyết Dình
Xem chi tiết
Hà Văn Tài
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2022 lúc 9:43

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do 

  if st[i]='H' then inc(dem);

writeln(dem);

readln;

end.

Bình luận (0)
feng
Xem chi tiết
nguyễn an phát
24 tháng 5 2022 lúc 10:59

program bai1;
uses crt;
var i:integer;
s,s1:string;
begin
  clrscr;
  write('nhap S:');readln(s);
  while pos('C',s)<>0 do
  begin
    insert('LOP11A',s,pos('C',s));
    delete(s,pos('C',s),1);
  end;
  writeln('xau sau khi bien doi la: ',s);
  writeln('do dai cua xau tren la: ',length(s));
  write('nhap s1:');readln(s1);
  if s1[1]=s[1] then writeln('ki tu dau cua hai xau trung nhau')
  else writeln('ki tu dau cua hai xau khong trung nhau');
  readln;
end.

Bình luận (0)
Hân Ngọc
Xem chi tiết
Thọ Phạm
Xem chi tiết
Đặng Duy Hoàng
8 tháng 1 2023 lúc 21:35

Bình luận (0)
Huy Lê Đình
Xem chi tiết
Huy Lê Đình
21 tháng 3 2022 lúc 16:56

Cho em lời giải với ạ em đang thi ạ

 

Bình luận (0)
Đặng Duy Hoàng
8 tháng 1 2023 lúc 21:36

Bình luận (0)
binz
Xem chi tiết
gấu béo
26 tháng 3 2023 lúc 22:21

chuoi = input("Nhập vào một chuỗi ký tự: ")

kieu_du_lieu_cu = type(chuoi)

kieu_du_lieu_moi = str

# tạo một danh sách chứa tất cả các ký tự xuất hiện trong chuỗi

ky_tu_can_loai_bo = ['a', 'e', 'i', 'o', 'u']

# loại bỏ các ký tự nằm trong danh sách khỏi chuỗi

chuoi = ''.join([c for c in chuoi if c.lower() not in ky_tu_can_loai_bo])

print("Chuỗi sau khi xóa các ký tự: ", chuoi)

Bình luận (0)
Nguyễn Chi
Xem chi tiết
Nguyễn Thị Mỹ Tiền
Xem chi tiết