Bài 12: Kiểu xâu

Thúy Hà

Viết chương trình nhập một xâu. Xoá tất cả các cụm từ 'love'.

Nguyễn Lê Phước Thịnh
13 tháng 4 2021 lúc 21:26

uses crt;

var st:string;

vt:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

vt:=pos('love',st);

while vt<>0 do 

  begin

delete(st,vt,4);

end;

writeln(st);

readln;

end.


Các câu hỏi tương tự
Khánh Mỹ
Xem chi tiết
Ola Oly
Xem chi tiết
Triệu Ngọc Phượng
Xem chi tiết
B2_Đinh Thị Huệ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Nguyễn TRƯỜNG Giang
Xem chi tiết
Nguyễn Thị Huyền Nhi
Xem chi tiết
Nguyen Ngoc Thien
Xem chi tiết
no no
Xem chi tiết