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 ạ.

0 bình luận về “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 ạ.”

1. 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.

   Bình luận

2. 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.

   Bình luận