Question

Giúp em với ạ

Answer 1

Câu 1: 

uses crt;

var c,d:string;

i,dai:integer;

begin

clrscr;

write('Nhap xau C:'); readln(c);

dai:=length(c);

d:=#32; 

for i:=1 to dai do 

  if c[i] in ['0'..'9'] then d:=d+c[i];

writeln(d);

readln;

end.