Viết chương trình nhập vào 1 xâu S và thông báo ra màn hình số lần xuất hiện của 1 chữ cái ' N ' có trong xâu S. M.n giúp e vs ạ.
2 câu trả lời
Var s:string;
i,d:Integer;
Begin
Write('Nhap xau : ');readln(s);
For i:=1 to length(s) do
If (s[i]='n') then inc(d);
Write('So lan xuat hien cua N trong xau la: ',d);
readln;
end.
program Min;
uses crt;
var s: string;
i,dem: integer;
begin
write('Nhap xau: ');readln(s);
for i:=1 to length(s) do
if (s[i]='n') then inc(dem);
write('So lan xuat hien cua N trong xau la: ',dem);
readln
end.
