15. Viết chương trình điều chỉnh 1 số nguyên bị nhập sai từ bàn phím. Sau đó sẽ cho biết số nhập sai và số đã sửa nếu người dùng yêu cầu
Ví dụ: Nhập 23vsdjvs44 thì chương trình sẽ sửa là 2344
[CODE][/B]var s,s1:string;
i,j:integer;
so:set of char;
tloi:char;
begin
readln(s);
so:=['0'..'9'];
for i :=1 to length(s) do if s[i]in so then s1:=s1+s[i];
write('Co hien so khong (c/k)');readln(tloi);
if upcase(tloi)<>'C' then write('Tam biet')
else if length(s1)<length(s)then write('Ban nhap so sai: ',s,' sua lai la: ',s1)
else write('Ban nhap so chinh xac:',s);readln;
end.
[B][/CODE]
