Viết chương trình nhập từ bàn phím xâu S1 . Tạo xâu S2 gồm 5 kí tự bắt đầu từ vị trí thứ 3 của xâu S1
2 câu trả lời
program oken;
uses crt;
var xau1,xau2:string;
begin
clrscr;
write('nhap xau: '); readln(xau1);
xau2:=copy(s1,3,5);
writeln('xau moi: ',xau2);
readln;
end.
uses crt;
var s1,s2:string;
i:byte;
begin
clrscr;
write('Nhap xau s1: '); readln(s1);
for i:=3 to 7 do
s2:=s2+s1[i];
write('Xau s2 la: ',s2);
readln
end.
Câu hỏi trong lớp
Xem thêm
