Viết chương trình nhập vào một xâu kí tự từ bàn phím. Đếm xem có bao nhiêu từ 'hoa' xuất hiện trong xâu. (không phân biệt chữ in hoa hay in thường). Đưa kết quả ra màn hình.
Ai giải giúp em vs ạ em đang cần gấp ạ
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
program Min; var s:string; i,dem:integer; begin write('Nhap xau: '); readln(s); for i:=1 to length(s) do S[i]:=upcase(S[i]); for i:=1 to length(s) do if copy(s,i,3)='HOA' then inc(dem); writeln('So tu "hoa" xuat hien trong xau la: ',dem); readln end.