Giải bởi Vietjack
Lời giải:
Progrom Xoa_ki_tu_ trung;
Uses crt,
Var i,j,n:integer;
S:string;
Begin
Clrscr;
Write('Nhap xau S:'); Reqdin(S);
N:=length(S);
l:=1
While i<n do
begin
if S[i]=S[j] then,
begin
if S[i]=SD[j] then
begin
Delete(S,j,1);
N=n-1;
End
Else j:=j+1:
End;
l:=i+1;
End;
Writeln('Xau S moi:', S);
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
