Viết chương trình nhập vào một câu và kí tự K . xét xem K có trong câu hay không.Nếu có cho biết vị trí của nó
GIÚP MÌNH VỚI Ạ
Viết chương trình nhập vào một câu và kí tự K . xét xem K có trong câu hay không.Nếu có cho biết vị trí của nó GIÚP MÌNH VỚI Ạ
By Raelynn
program xuathien;
uses crt;
var s:string;
k:char;
i:byte;
begin
clrscr;
write(‘Nhap xau: ‘); readln(s);
write(‘Nhap ki tu k: ‘); readln(k);
if pos(k,s)=0 then write(‘Khong co’)
else
begin
write(‘Vi tri xuat hien cua k trong xau la: ‘);
for i:=1 to length(s) do
if s[i]=k then write(i,’ ‘);
end;
readln;
end.
program timk;
uses crt;
var st:string;
k:char;
i:byte;
begin
clrscr;
write(‘Nhap xau: ‘); readln(st);
write(‘Nhap ki tu k: ‘); readln(k);
if pos(k,st)=0 then write(‘Khong co’)
else
begin
write(‘Vi tri xuat hien cua k trong xau la: ‘);
for i:=1 to length(st) do
if st[i]=k then write(i,’ ‘);
end;
readln;
end.