K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(s);

dem:=0;

for i:=1 to d do

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

writeln(dem);

readln;

end.

17 tháng 5 2021

giúp mk bài tập này nx ko ạ 

 

23 tháng 2 2023

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"')