Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
xau = input('Nhap chuoi: ')
so_khoang_cach = xau.count(' ')
print('So khoang cach:', so_khoang_cach)
vi_tri = []
for i in range(len(xau)):
if xau[i] == ' ':
vi_tri.append(i)
print('Vi tri khoang cach:', vi_tri)
Var s,st:string;
i:integer;
Begin
Write('Nhap xau ');readln(s);
For i:=1 to length(s) do
If s[i] in ['0'..'9'] then st:=st+s[i];
Write('Cac ki tu so co trong day la ',st);
Readln
End.
Program HOC24;
var s: string;
i,x: byte;
begin
readln(s);
//-----------Câu a
while s[1]=#32 do delete(s,1,1);
while s[length(s)]=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,1);
writeln(s);
//-------------Câu b
s[1]:=upcase(s[1]);
for i:=1 to length(s) do
if s[i]=#32 upcase(s[i+1]);
writeln(s);
//--------------Câu c
for i:=1 to length(s) do
if s[i]=#32 then x:=i;
for i:=x+1 to length(s) do
write(s[i]);
//---------------------------
readln
end.
Var cd,cr,cv,dt:real;
Begin
Write('Chieu dai = ');readln(cd);
Write('Chieu rong = ');readln(cr);
cv:=(cd+cr)*2;
dt:=cd*cr;
Writeln('Chu vi la ',cv:10:2);
Write('Dien tich la ',dt:10:2);
Readln
End.
