Giải bởi Vietjack
Lời giải:
uses crt;
var i : byte; St : string; ch : char;
begin
clrscr;
write('Nhap xau ki tu : '); readln(St);
write('Nhap ki tu : '); readln(ch);
i := 1; while i <= length(St) do
begin if St[i] = ch then begin
delete(St, i, 1); i := i; end
else i := i + 1; end;
write('Xau moi : ', St);
readln
end.
Hãy cho biết cách :
+ Mở 1 bảng có tên HỌC_SINH trong CSDL
+ Xoá 1 bản ghi trong bảng HOC_SINH
+ Xắp xếp cột tên theo thứ tự giảm dần trong bảng HỌC SINH
