Кодировщик

[Anton3212]

Уважаемые форумчане!Помогите пожалуйста с задачей:
Вводится текст:мама папа (вывести на экран буквы и их порядковый номер в тексте)
Пример:
мама папа
м-1,3
а-2,4
И т.д.

[Аватар]

Заглавные, цифирь, кириллица, запятая, точка и прочая - не буква?

[evg_m]

var
  s: char;
 rs: string;
var
  txt: string;

txt:='mama papa children';
for s:=chr(0) to chr(255) do begin
  rs:=s +' - ';
  for j:=1 to length(txt) do begin
    if txt[j]=s then begin write(rs); write(j); rs:=', '; end;
  end;
  if rs=', ' then writeln(';');
end;

[Anton3212]

Сообщение от Аватар

Заглавные, цифирь, кириллица, запятая, точка и прочая - не буква?

Не буква. Только весь русский алфавит это-буквы.

[Аватар]

Только весь русский алфавит это-буквы.

Пример:
mama papa

Тогда в этом примере нет ни одной буквы

[Anton3212]

Сообщение от Аватар

Тогда в этом примере нет ни одной буквы

исправил

[Anton3212]

Сообщение от evg_m

var
  s: char;
 rs: string;
var
  txt: string;

txt:='mama papa children';
for s:=chr(0) to chr(255) do begin
  rs:=s +' - ';
  for j:=1 to length(txt) do begin
    if txt[j]=s then begin write(rs); write(j); rs:=', '; end;
  end;
  if rs=', ' then writeln(';');
end;

вводить можно любой текст на русском языке маленькими буквами и программа выводит букву и номера мест где эта буква встречается в тексте

[Anton3212]

Помогите пожалуйста! Неужели никто не знает как это решить?��

[Аватар]

for s:=chr(0) to chr(255) do
  if s in ['а'..'я','ё']) then begin
    rs:='';
    for j:=1 to length(txt) do
      if txt[j]=s then begin rs:=rs+IntToStr(j)+',';
    if rs<>'' then writeln(s+' - '+Copy(rs,1,Length(rs)-1));
  end;

[Anton3212]

вот сюда код вставлять? просто я не совсем разбираюсь .