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

uses crt;

var s,s1,s2:string;

i,d:integer;

begin

clrscr;

readln(s);

s1:=''

s2:=''

d:=length(s);

for i:=1 to d do

  begin

if s[i] in ['0'..'9'] then s1:=s1+s[i];

if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then s2:=s2+s[i];

end;

writeln('Xau chua cac ki tu so la: ',s1);

writeln('Xau chua cac ki tu chu la: ',s2);

readln;

end.

Bình luận (0)
Nguyễn Chi
Xem chi tiết
Nguyễn Đức Duy
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 2 2022 lúc 14:54

uses crt;

var s1,s2:string;

i,j,d1,d2:integer;

begin

clrscr;

readln(s1,s2);

d1:=length(s1);

d2:=length(s2);

for i:=1 to d1 do 

  if not(s1[i] in ['0'..'9']) then delete(s1,i,1);

for i:=1 to d2 do 

  if not(s2[i] in ['0'..'9']) then delete(s2,i,1);

writeln(s1);

writeln(s2);

writeln(s1+s2);

readln;

end.

Bình luận (0)
Thái Uyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 14:48

uses crt;

var s1,s2:string;

begin

clrscr;

readln(s1,s2);

insert(s1,s2,5);

writeln(s2);

readln;

end.

Bình luận (0)
🍀Cố lên!!🍀
Xem chi tiết
trần thu lan
Xem chi tiết
Nguyễn Thị Huyền Nhi
Xem chi tiết
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.

Bình luận (0)
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.

Bình luận (0)
Trần Thị Thúy Hằng
Xem chi tiết