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.

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.

trần thu lan
Xem chi tiết
Thangg PH
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2021 lúc 19:48

uses crt;

const s1='Pin_NLMT'

s2='Pin_luthium'

s3='Pin_JA_Solar'

s4='Pin_Jinko_Solar'

begin

clrscr;

if s1<s4 then writeln('Xau s1 nho hon xau s4')

else if s1=s4 then writeln('Xau s1 bang xau s4)

else writeln('Xau s1 lon hon xau s4');

if s2<s3 then writeln('Xau s2 nho hon xau s3')

else if s2=s3 then writeln('Xau s2 bang xau s3')

else writeln('Xau s2 lon hon xau s3');

readln;

end.

Trần Thị Thúy Hằng
Xem chi tiết
Ha Nguyen
Xem chi tiết
🍀Cố lên!!🍀
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.

Nguyễn Chi
Xem chi tiết