Viết chương trình tìm ra các vị trí có chữ a trong chuỗi s -> pascal ạ
2 câu trả lời
Bạn coi nha:
uses crt;
var s:string;i:integer;
begin
clrscr;
write('nhap sau s: ');readln(s);
for i := 1 to length(s) do
begin
if s[i] = 'a' then write(i, ' ');
end;
readln;
end.
@danhle
program tims;
uses crt;
var s:string;i:integer;
begin
clrscr;
write('nhap sau s: ');readln(s);
for i := 1 to length(s) do
begin
if s[i] = 'a' then write(i, ' ');
end;
readln;
end.
buồn
