viết chương trình nhập vào một xâu . a, ghi ra màn hình kí tự cuối cùng của xâu đó. b, tìm vị trí xuất hiện đầu từ 2020 đầu tiên trong xâu . c, sao chép thành xâu mới bắt đầu từ vị trí giữa các xâu đó đến cuối . d, kiểm tra xem xâu có đối xứng không . e, in xâu đó với vị trí đảo ngược . f, in hoa xâu vừa nhập. g, xóa khoảng trắng dư thừa trong xâu . biết những khoảng xâu đầu xâu và cuối xâu là dư thừa , trong xâu có 2 khoảng thắng liên tiếp thì thừa một khoảng trắng . h, đếm số từ của xâu biết mỗi từ cách nhau một khoảng trắng.

2 câu trả lời

Program NN;
Uses crt;
Var St: String;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        Writeln(St[length(St)]);
        Write(Pos('2020',St));
        Readln
End.

var St: String;
begin
clrscr;
write('Nhap St: '); Readln(St);
writeln(St[length(St)]);
write(Pos('2020',St));
readln
end.

Câu hỏi trong lớp Xem thêm