Viết chương trình nhập vào một xâu có độ dài 20. Sau đó tạo xâu mới gồm 5 kí tự của xâu vừa nhập bắt đầu từ vị trí thứ 3 và in xâu vừa tạo
2 câu trả lời
uses crt;
var s,s1:string;
begin
clrscr;
write('Nhap vao xau co do dai 20: ');readln(s);
s1:=copy(s,3,5);
writeln('Ket qua: ',s1);
readln
end.
program bai_giai;
uses crt;
var s1:string[20];s2:string[5];
begin
clrscr;
write('nhap xau thu 1:');readln(s1);
write('nhap xau thu 2:');readln(s2);
insert(s1,s2,3);
write('xau vua tao la:',s1);
readln
end.
Câu hỏi trong lớp
Xem thêm