in ra màn hình xâu xóa 3 ký tự cuối mình chỉ cần từ phần begin đến hết thôi ạ chuyên tin giúp mình với mình cần cho kt ngày mai
2 câu trả lời
var s: string;
begin
write('nhap xau: '); readln(s);
delete(s,length(s)-2,3);
write('xau sau khi xoa: ',s);
readln
end.
uses crt;
var s : string;
begin
clrscr;
write('Nhap xau : '); readln(s);
delete(s, length(s) - 2, 3);
write('Xau moi : ', s);
readln
end.
Câu hỏi trong lớp
Xem thêm
