KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Đếm số lần xuất hiện của kí tự “A” trong xâu vừa nhập
By Ayla
Đếm số lần xuất hiện của kí tự “A” trong xâu vừa nhập
program phuongt; uses crt; var s: string; i, d: integer; begin clrscr; write(‘Nhap s = ‘); readln(s); d:=0; for i:=1 to length(s) do if s[i]=’A’ then d:=d+1; write(‘So lan xuat hien cua ki tu “A” la: ‘, d); readln end.
program phuongt;
uses crt;
var s: string;
i, d: integer;
begin
clrscr;
write(‘Nhap s = ‘); readln(s);
d:=0;
for i:=1 to length(s) do if s[i]=’A’ then d:=d+1;
write(‘So lan xuat hien cua ki tu “A” la: ‘, d);
readln
end.
Program Hotboy ;
Uses crt;
var Hb:string;
i,d:byte;
k:char;
Begin
Clrscr;
D:=0;
Write(‘Nhap xau tu ban phim ‘);
Readln(Hb);
Write(‘nhap ki tu bat ki’);
Readln(k);
For i:=1 to length(Hb) do
if (Hb[i]=k ) then inc(d);
write(‘So ki tu ‘,k,’ trong xau do la: ‘,d);
Readln
End.