Bài 12: Kiểu xâu

PV

Nhậo vào bàn phím xâu C

a, tính độ dài xâu

b, thực hiện tạo xâu mới gồm 4 kí tự bắt đầu từ vị trí thứ 5 trong xâu

c, đếm xem xâu có bao nhiêu kí tự b

d, in các kết quả ra màn hình

NT
31 tháng 3 2022 lúc 22:45

uses crt;

var st:string;

i,dem:integer;

begin

clrscr;

readln(st);

writeln(length(st));

for i:=5 to 8 do write(st[i]);

writeln;

dem:=0;

for i:=1 to length(st) do 

  if st[i]='b' then dem:=dem+1;

writeln(dem);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
NG
Xem chi tiết
DP
Xem chi tiết
TT
Xem chi tiết
TP
Xem chi tiết
TP
Xem chi tiết
YM
Xem chi tiết
AT
Xem chi tiết
PH
Xem chi tiết
JH
Xem chi tiết