1

Не могу понять в чём проблема(строка указана)

var
  i: char;
  j: integer;
  s: string;
  x: boolean;

begin
  writeln('Введите строку:');
  readln(s);
  for i := char[33] to char[255] do{Тут пишет:нет индексного свойства по умолчанию для типа char}
  begin
    x := false;
    for j := 1 to length(s) do
    begin
      if i = s[j] then
      begin
        if not x then 
          write(i, ' - ');
          write(s[j], ' ');
          flag:=true
      end;
      if x then writeln;
    end;
  end;
end.

1 ответ 1

0
for i := char(33) to char(255) do

или

for i := chr(33) to chr(255) do

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.