viết chương trình nhập a. tạo b bằng cách loại bỏ các số từ 0 đến 9 có trong a
2 câu trả lời
program taoxau;
uses crt;
var a,b:string;
i:byte;
begin
clrscr;
write('Nhap a: '); readln(a);
b:='';
for i:=1 to length(a) do
if not(a[i] in ['0'..'9']) then b:=b+a[i];
write('Xau b la: ',b);
readln;
end.
Program loai;
Var a,b:string;
i:integer;
Begin
writeln('nhap a');readln(a);
For i:=1 to length(a) do
if a[i] in ['a'..'z']+['A'..'Z'] then b:=b+a[i];
Writeln (b);
readln;
end.
