Question

Дана строка символов. Проверить встречается ли первый символ этой строки среди остальных. Паскаль. ​

Answer 1

Ответ:

var

 s:string;

 i:integer;

begin

 writeln('Введите строку:');

 readln(s);

 for i:=2 to length(s) do if s[i]=s[1] then

begin

 writeln('встречается');

 break;

end;

end.

Answer 2

Конечно, вот как можно выполнить такую проверку на Pascal:

pascalCopy code
program CheckFirstCharacter;
var
  inputString: string;
  firstChar: char;
  i: integer;
  found: boolean;

begin
  writeln('Введите строку:');
  readln(inputString);

  if Length(inputString) = 0 then
  begin
    writeln('Строка пуста.');
    Exit;
  end;

  firstChar := inputString[1];
  found := false;

  for i := 2 to Length(inputString) do
  begin
    if inputString[i] = firstChar then
    begin
      found := true;
      Break;
    end;
  end;

  if found then
    writeln('Первый символ встречается в строке.')
  else
    writeln('Первый символ не встречается в строке.');
end.

Эта программа сначала запрашивает у пользователя ввод строки, а затем проходит по каждому символу начиная со второго и сравнивает его с первым символом строки. Если находит соответствие, то устанавливает флаг found в true и завершает выполнение цикла. В конце программа выводит сообщение о том, встречается ли первый символ в строке или нет.