Задание по информатике Введите битовую строку и дополните её последним битом, который должен быть равен 0, если в исходной строке чётное число единиц, и равен 1, если нечётное (в получившейся строке должно всегда быть чётное число единиц).
Пример:
Вводим: 01101010110
Получаем: 011010101100

паскаль

Предыдущий
вопрос Следующий
вопрос

Приведу код на Pascal, который реализует данную задачу:

program AddParityBit
va
binaryString: string
i, countOnes: integer
begi
countOnes := 0
// Ввод битовой строк
writeln('Введите битовую строку:')
readln(binaryString)
// Подсчет количества единиц в строк
for i := 1 to length(binaryString) d
begi
if binaryString[i] = '1' the
countOnes := countOnes + 1
end
// Добавление последнего бита в зависимости от четности количества едини
if countOnes mod 2 = 0 the
binaryString := binaryString + '0
els
binaryString := binaryString + '1'
// Вывод полученной строк
writeln('Получившаяся битовая строка:')
writeln(binaryString)
end.

Для выполнения этого кода вам потребуется установить среду разработки Pascal (например, Lazarus) на вашем компьютере.