Viết chương trình nhập vào xâu S từ bàn phím có độ dài tối đa là 50 kí tự a. Thực hiện xóa đi kí tự đầu tiên của xâu S b. Thực hiện tính độ dài của xâu S
2 câu trả lời
Uses crt;
string[50];
begin
clrscr; write( nhập xâu ); readeln(s);
delete(s,1,1);
writeln(s);
write(longth(s));
readeln;
end.
Uses crt;
var s: string[50];
begin
clrscr;
write('nhap xau: '); readln(s);
delete(s,1,1);
writeln(s);
write(length(s));
readln;
end.
