viết chương trình nhập 1 xâu S. tạo xâu s1 gồm 3 phần tử cuối cùng của xâu S, xâu S,s1 ra màn hình
2 câu trả lời
program Xau;
uses crt;
var s,s1: string;
i: byte;
begin
clrscr;
write('Nhap xau S: '); readln(s);
for i:=length(s) downto length(s)-2 do
s1:= s[i] + s1;
writeln('Xau S la: ',s);
write('Xau S1 la: ',s1);
readln;
end.
program Xau_ky_tu;
uses crt;
var s,s1: string;
i: byte;
begin
clrscr;
write('Nhap xau S: '); readln(s);
for i:=length(s) downto length(s)-2 do
s1:= s[i] + s1;
writeln('Xau S la: ',s);
write('Xau S1 la: ',s1);
delay(5000);
readln;
end.
