Question

Нужно реализовать программу в Delphi Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или несколькими пробелами. Найти и вывести на экран группы с четным количеством символов.

Answer 1

Ответ:

фото выложи и будеть ответ

Answer 2

Конечно, вот пример программы на Delphi, которая выполняет указанную задачу:

delphiCopy code
program EvenGroups;

uses
  SysUtils;

var
  inputString, group: string;
  spacePos, groupLength: integer;

begin
  WriteLn('Введите строку с группами нулей и единиц, разделенными пробелами:');
  ReadLn(inputString);

  spacePos := 1;
  while spacePos <= Length(inputString) do
  begin
    // Найти позицию следующего пробела
    spacePos := Pos(' ', inputString);
    
    if spacePos > 0 then
      group := Copy(inputString, 1, spacePos - 1)
    else
      group := inputString;
    
    groupLength := Length(group);
    
    if (groupLength > 0) and (groupLength mod 2 = 0) then
      WriteLn('Группа с четным количеством символов: ', group);
    
    Delete(inputString, 1, spacePos);
  end;
end.

Скопируйте этот код в среду Delphi и выполните его. Программа будет ожидать ввода строки с группами нулей и единиц, разделенными пробелами, и затем выведет на экран группы с четным количеством символов.