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
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.
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.
chúc bn hc tốt