Giúp đỡ bìa tập PasCal

[dangkythe]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

mong các bác giúp đỡ em bài tập này với ạ
viết chương trình nhập vào xâu s kiểm tra xâu s có từ nào trùng với tên của mk không? xóa đi và thay bằng ''lop11a10''

 

[khai221050]

USES crt;
VAR s:STRING[40];
    t:STRING[40];
    i:INTEGER;
BEGIN
    clrscr;
    writeln('Nhap ten va xau'); readln(t,s);
    FOR i:=1 TO length(s)-length(t) DO
        IF t=copy(s,i,length(t)) THEN s:='lop11a10';
    writeln(s);
    readln;   
END.