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. Mọi người giúp em gấp với ạ
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. Mọi người giúp em gấp với ạ
var s: string;
i: byte;
Begin
Write(‘nhap xau: ‘); readln(s);
Writeln(‘cac vi tri cua ki tu A:’);
for i:=1 to length(s) do if s[i]=’A’
then write(i, ‘ ‘);
Readln
End.