Bài 12: Kiểu xâu

TH

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

NT
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.

Bình luận (0)

Các câu hỏi tương tự
KM
Xem chi tiết
OO
Xem chi tiết
TP
Xem chi tiết
BH
Xem chi tiết
KM
Xem chi tiết
NG
Xem chi tiết
NN
Xem chi tiết
NT
Xem chi tiết
NN
Xem chi tiết