Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
trần thu lan
Xem chi tiết
Lê Thị Vân Giang
Xem chi tiết
Nguyễn Thị Mỹ Tiền
Xem chi tiết
quang Vien
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 4 2021 lúc 22:34

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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

d:=length(st);

for i:=1 to d do

  if st[i]=#32 then 

begin

writeln(i);

break;

end;

readln;

end.

Phạm Vy
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 3 2022 lúc 22:45

uses crt;

var st:string;

i,dem:integer;

begin

clrscr;

readln(st);

writeln(length(st));

for i:=5 to 8 do write(st[i]);

writeln;

dem:=0;

for i:=1 to length(st) do 

  if st[i]='b' then dem:=dem+1;

writeln(dem);

readln;

end.

Linh Tran
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 3 2021 lúc 18:37

uses crt;

var st:string;

begin

clrscr;

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

delete(st,3,4);

writeln('Xau sau khi xoa la: ',st);

readln;

end.

Bùi Anh Tuấn
31 tháng 3 2021 lúc 19:53

Lan Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 3 2021 lúc 12:43

uses crt;

var st:string;

n,vt,d,i:integer;

begin

clrscr;

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

d:=length(st);

write('Nhap vi tri can xoa:'); readln(vt);

write('Nhap so ki tu can xoa:'); readln(n);

delete(st,vt,n);

writeln('Xau sau khi xoa la: ',st);

readln;

end.

Lê Đình Quý
Xem chi tiết
Minh Lệ
16 tháng 3 2023 lúc 22:07

Program HOC24;

var s1,s2: string;

i: byte;

begin

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

s1:=''

for i:= length(s) downto 1 do

if s[i] in ['A'..'Z'] then s1:=s1+s[i];

write('Xau S1 : ',s1);

readln

end.

Dao Vo
Xem chi tiết
Nguyễn TRƯỜNG Giang
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 21:46

uses crt;

var st:string;

begin

clrscr;

readln(st);

delete(st,3,5);

writeln(st);

readln;

end.