Viết chương trình nhập một sâu từ bàn phím. Hãy hiển thị vị trí của kí tự A trong sâu vừa nhập lên màn hình
2 câu trả lời
Program bai_tap;
Uses crt;
Var s :string[100];
i :integer;
Begin
clrscr;
write('Nhap xau:',s);
readln(s);
if pos('A',s)=0 then write('Khong co')
else for i:= 1 to length(s) do
if s[i]='A' then write(i,' ');
readln;
End.
program vi_tri;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
if pos('A',s)=0 then write('Khong co')
else for i:=1 to length(s) do
if s[i]='A' then write(i,' ');
readln;
end.
