Viết chương trình nhập xâu chứa tối đa 20 kí tự và một số tự nhiên n, xoá n kí tự đầu, n kí tự cuối và xuất kết quả ra màn hình.
2 câu trả lời
uses crt;
var s : string; i, n : byte;
begin
clrscr;
write('Nhap xau : '); readln(s);
if length(s) <= 20 then
begin
write('Nhap so n : '); readln(n);
delete(s, 1, n);
delete(s, length(s) - n + 1, n);
write('Xau moi : ', s);
end;
readln
end.
program xoaXau;
uses crt;
var s: string[20];
n: byte;
begin
clrscr;
write('nhap xau: '); readln(s);
write('nhap n = '); readln(n);
writeln('xau ban dau: ', s);
write('xoa ',n,' ki tu dau: ');
writeln(copy(s, n+1, length(s)-n));
write('xoa ',n,' ki tu cuoi: ');
writeln(copy(s, 1, length(s)-n));
readln;
end.
