Viết chương trình con đếm số lần xuất hiện của kí tự x trong sâu S

0 bình luận về “Viết chương trình con đếm số lần xuất hiện của kí tự x trong sâu S”

1. program Tin_hoc;

   uses crt;

    var i,n:integer;

           s:string;

   begin

   clrscr;

   writeln(‘Nhap xau:’);readln(s);

   n:=0;

   write(‘Nhap 1 ki tu x: ‘);readln(x);

   for i:= 1 to length(s) do if s[i] = x then inc(n);

   writeln(‘Trong xau s co ‘,n,’ ki tu x’);

   readln;

   end.

   Bình luận

2. program xauS;

   uses crt;

   var i,n:integer;

         s:string;

   begin clrscr;

      writeln(‘Nhap xau s:’); readln(s);

        n:=0;

      writeln(‘Nhap ki tu x: ‘);readln(x);

      for i:=1 to length(s) do

        if s[i]=x then inc(n);

      write(‘So lan xuat hien ki tu x la: ‘,n);

   readln;

   end.

   Học tốt!

   Bình luận