Viết chương trình nhập vào 1 xâu từ bàn phím
.a. In ra màn hình độ dài của xâu vừa nhập
.b. Sử dụng xâu vừa nhập ở trên. Tiếp tục nhập từ bàn phím n kí tự cần xóa, vị trí vt cần xóa. In ra màn hình xâu sau khi xóa. *
ai giúp em với ạ … thanks
Viết chương trình nhập vào 1 xâu từ bàn phím
.a. In ra màn hình độ dài của xâu vừa nhập
.b. Sử dụng xâu vừa nhập ở trên. Tiếp tục nhập từ bàn phím n kí tự cần xóa, vị trí vt cần xóa. In ra màn hình xâu sau khi xóa. *
ai giúp em với ạ … thanks
tham khảo
uses crt;
var a,b:string;
begin
clrscr;
write(‘Nhap xau ki tu thu nhat: ‘);readln(a);
write(‘Nhap xau ki tu thu hai: ‘);readln(b);
if length(a)>length(b) then writeln(b) else if length(b)>length(a) then writeln(a) else begin writeln(a); writeln(b);end;
readln
end.
Vote cho mình nha bạn
program bt;
uses crt;
var s:string;
i,n,vt,d:integer;
begin
clrscr; d:=1;
write(‘Nhap xau: ‘); readln(S);
writeln(‘Do dai xau: ‘,length(S));
write(‘Nhap so luong ki tu can xoa: ‘); readln(n);
write(‘Nhap vi tri can xoa: ‘); readln(vt);
while (d<=n) do
begin
delete(s,vt,1);
d:=d+1;
end;
write(‘Xau sao khi xoa: ‘,s);
readln;
end.