viết chương trình nhập vào một xâu , đếm các ký tự c trong xâu (ký tự c nhập vào từ bàn phím) mình cần gấp mong mn giúp đỡ

viết chương trình nhập vào một xâu , đếm các ký tự c trong xâu (ký tự c nhập vào từ bàn phím)
mình cần gấp mong mn giúp đỡ

0 bình luận về “viết chương trình nhập vào một xâu , đếm các ký tự c trong xâu (ký tự c nhập vào từ bàn phím) mình cần gấp mong mn giúp đỡ”

  1. uses crt;

    var s:string;

    c,i,d: integer;

    begin

    clrscr;

    write (‘nhap xau s: ‘);  readln (s);

    for i:=1 to length(s) do if s[i]=c then d:=d+1;

    writeln (‘trong xau co ‘,d,’ ki tu “‘,c,'”‘);

    readln;

    end.

    Bình luận
  2. program dem_c;

    uses crt;

    var s:string;

          c:char;

          i,d:integer;

    begin

          clrscr;

          write(‘Nhap xau: ‘);  readln(S);

          write(‘Nhap ki tu c: ‘);   readln(c);

          d:=0;

          for i:=1 to length(s) do

                if s[i]=c then d:=d+1;

          write(‘Co ‘,d,’ ki tu ‘,c,’ trong xau ‘,s);

          readln;

    end.

    Bình luận

Viết một bình luận