viết chương trình nhập vào xâu s in ra tất cả vị trí của kí tự k trong xâu s
2 câu trả lời
uses crt;
var s,k:string;i:integer;
begin
clrscr;
writeln('nhap s: ');readln(s);
writeln('nhap k: ');readln(k);
for i := 0 to length(s) do
if k = s[i] then
begin
write(length(s[i]));
end;
readln;
end.
Bạn coi tham khảo.
@danhle
program vitri;
uses crt;
var st:string;
k:char;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
write('Nhap ki tu k: '); readln(k);
writeln('Vi tri xuat hien la:');
for i:=1 to length(st) do
if st[i]=k then write(i:4);
readln
end.
