Question

Viết chương trình nhập vào một chuỗi gồm các kí tự số và kí tự chữ cái La-tinh thường hãy tách chuỗi các kí tự số và các kí tự chữ cái raVd: 123dgf3d được tách thành 1233 và dgfd

Answer 1

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do

if (st[i] in ['a'..'z']) then write(st[i]);

writeln;

for i:=1 to d do

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

readln;

end.