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 đỡ 15/07/2021 Bởi Lydia 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 đỡ
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
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
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.
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.