Nhập vào xâu S. Xuất ra kết quả đếm các kí tự 'n' có trong S Giúp mình với 5* cho bạn nhanh nhất
1 câu trả lời
uses crt;
var s: string;
cnt, i: longint;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
if s[i] = 'n' then inc(cnt);
writeln(cnt);
readln;
end.
Câu hỏi trong lớp
Xem thêm
