Viết chương trình nhập một xâu, xuất xâu vừa nhập ra màn hình bắt đầu từ vị trí có xâu “abc” đến hết xâu

Question

Viết chương trình nhập một xâu, xuất xâu vừa nhập ra màn hình bắt đầu từ vị trí có xâu 'abc' đến hết xâu

haianh · Answer

program xuat_xau;

uses crt;

var s:string;

i:byte;

begin

clrscr;

write(‘Nhap xau: ‘); readln(s);

if pos(‘abc’,s)<>0 then

for i:=pos(‘abc’,s) to length(s) do write(s[i])

else write(‘Khong co xau abc de bat dau viet’);

readln;

end.

0 bình luận về “Viết chương trình nhập một xâu, xuất xâu vừa nhập ra màn hình bắt đầu từ vị trí có xâu “abc” đến hết xâu”