Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Đức Kiên
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 22:14

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do 

  if st[i]=#32 then inc(dem);

writeln(dem);

readln;

end.

Ngô Thành Chung
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 3 2022 lúc 20:28

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do 

begin  

if st[i]=' ' then writeln

else write(st[i]);

end;

readln;

end.

Ngânn Okk
Xem chi tiết
Bùi Anh Tuấn
12 tháng 3 2021 lúc 19:45

Thinh phạm
12 tháng 3 2021 lúc 14:41

Program hotrotinhoc;

var s: string;

t,c,i: byte;

begin

write('Nhap s:'); readln(s);

t:=0;

for i:=1 to length(s) do

if s[i] in ['1'..'9'] then

begin

val(s[i],c);

t:=t+c;

end;

write(t);

readln

end.

Thu gọn

Hiền Hiền
Xem chi tiết
Đỗ Tuệ Lâm
10 tháng 2 2022 lúc 14:12

Tk:

undefined

Nguyễn Lê Phước Thịnh
10 tháng 2 2022 lúc 14:22

uses crt;

var st:string;

i,d,t,x,y:integer;

begin

clrscr;

readln(st);

d:=length(st);

t:=0;

for i:=1 to d do 

  if (st[i] in ['0'..'9'])  then

begin

val(st[i],x,y);

t:=t+x;

end;

writeln(t);

readln;

end.

Nguyễn Thị Ngọc Minh
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 1 2021 lúc 22:18

uses crt;

var st:string;   

d,i,dem:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

while st[1]=#32 do 

begin     

delete(st,1,1);     

d:=length(st); 

end;

while st[d]=#32 do 

begin     

delete(st,d,1);     

d:=length(st); 

end;

for i:=1 to d do 

begin     

while (st[i]=#32) and (st[i+1]=#32) do       

begin         

delete(st,i,1);         

d:=length(st);       

end; 

end;

st[1]:=upcase(st[1]);

for i:=1 to d do 

if st[i]=#32 then st[i+1]:=upcase(st[i+1]);

writeln('Ten cua ban sau khi viet dung la: ',st);

dem:=1;

for i:=1 to d do 

if st[i]=#32 then inc(dem);

writeln('So tu cua xau la: ',dem);

readln;

end.

Ngô Chí Thành
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 4 2021 lúc 9:40

Uses crt;

Var st:string;

I,d:integer;

Begin

Clrscr;

Write('nhap xau:'); readln(st);

D:=length(st);

While st[d]=#32 do

Begin

Delete(st,d,1);

D:=length(st);

End;

For i:=1 to d do

If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);

Writeln(st);

Readln;

End.

Ngô Chí Thành
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 4 2021 lúc 9:29

Uses crt;

Var st:string;

I,d:integer;

Begin

Clrscr;

Write('nhap xau:'); readln(st);

D:=length(st);

While st[d]=#32 do

  Begin

Delete(st,d,1);

D:=length(st);

End;

For i:=1 to d do

  If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);

Writeln(st);

Readln;

End.

Ngưu Kim
Xem chi tiết
Phía sau một cô gái
20 tháng 3 2023 lúc 20:01

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)

Quang Tuấn Quách
Xem chi tiết
Quang Tuấn Quách
14 tháng 3 2023 lúc 6:54

Mn giúp vs