cho xâu st nhập từ bàn phím
yêu cầu
+in hoa kí tự đầu tiên của từ
+đếm kí tự (B) xuất hiện trong xâu kí tự
cho xâu st nhập từ bàn phím yêu cầu +in hoa kí tự đầu tiên của từ +đếm kí tự (B) xuất hiện trong xâu kí tự
By Clara
By Clara
cho xâu st nhập từ bàn phím
yêu cầu
+in hoa kí tự đầu tiên của từ
+đếm kí tự (B) xuất hiện trong xâu kí tự
var s: string;
d: byte;
Begin
Write(‘nhap xau: ‘); readln(s);
D:=0;
For i:=1 to length(s)-1 do
If (s[i]=’ ‘) and (s[i+1]<>’ ‘)
Then s[i+1]:=upcase(s[i+1]);
For i:=1 to length(s) do if s[i]=’B’
Then inc(d);
Writeln(‘xau sau khi in hoa: ‘, s);
Write(‘ki tu “B” xuat hien ‘, d, ‘ lan’);
Readln
End.
var stri,strkq: string; i,z: byte;
begin
write(‘Nhap mot chuoi: ‘);
readln(stri);
for i:=1 to length(stri) do
begin
if (i = 1) then strkq:=strkq+upcase(stri[i]) else strkq:=strkq+stri[i];
if (stri[i] = ‘B’) then inc(z);
end;
writeln(‘Chuoi da in hoa ki tu dau la: ‘,strkq);
writeln(‘So luong chu B: ‘,z);
readln;
end.