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 đỡ

Question

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 đỡ

thienthanh · Answer

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.

annhocbichchau · Answer

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.