Viết chương trình nhập một xâu có độ dài 20 kí tự và 1 số tự nhiên n (n<20). Đưa ra màn hình n kí tự đầu, n kí tự cuối của xâu vừa nhập ra màn hình.
2 câu trả lời
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(n, ' ki tu dau: ');
writeln(copy(s,1,n));
write(n, ' ki tu cuoi: ');
write(copy(s, length(s)-n+1, n));
readln;
end.
var s: string[20];
n: byte;
begin
clrscr;
write(‘nhap xau: ‘); readln(s);
write(‘nhap n = ‘); readln(n);
writeln(‘xau ban dau: ‘, s);
write(n, ‘ ki tu dau: ‘);
writeln(copy(s,1,n));
write(n, ‘ ki tu cuoi: ‘);
write(copy(s, length(s)-n+1, n));
readln;
end.
