Цепочки символов. Посчитать количество нечетных в цепочке

@Mr.Spock · Регистрация: 31.03.2010

Студворк — интернет-сервис помощи студентам

Есть задача. Вот примерно такая

Цепочки символов создаются по следующему правилу. Первая строка состоит из
одного символа ¬ цифры 1. Каждая из последующих цепочек создается действиями:
1) В начало записывается число ¬ номер строки по порядку.
2) Далее дважды подряд записывается предыдущая строка.
Первые 4 строки, созданные по этому правилу:
1
211
3211211
432112113211211

И все бы ничего, цепочки вывод я сделал. НО! Есть у этой задачи дополнительное задание:
Сколько раз в общей сложности встречаются в седьмой строке нечетные цифры?

Сама задача у меня выглядит так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program a1;
var
  i, n,m,err,k,odd: integer; 
  o,s: string; 
 
 begin
  s := '';
  readln(n); 
  for i := 1 to n do 
  begin
    write(i); 
   o := inttostr(i)  + o*2;
    writeln(o); 
  end;
  val(o, m,err); 
 
end.

Пытался считать нечетные вот такой конструкцией:

Pascal
1
2
3
4
5
while m > 0 do begin
        if (m mod 2) = 1 then
            Result := Result + 1;
        m := m div 10;
    end;

Не считает. Выводит 0

Смиренно прошу разъяснить...

@Puporev · 20.05.2017, 17:01

А Паскаль какой?
Если строки короткие (до 255 символов) то больше 8 строк не получить.
Вот пример для Паскаль АВС для 7 строк.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var i,k:integer;
    s1,s2: string;
begin
s1:='1';
writeln(s1);
for i:=2 to 7 do
 begin
  s2:=inttostr(i)+s1+s1;
  writeln(s2);
  s1:=s2;
 end;
k:=0;
for i:=1 to length(s2) do
if odd(ord(s2[i]))then inc(k);
writeln('Количество нечетных цифр в 7 строке=',k)
end.

@Mr.Spock · 20.05.2017, 17:04 **[ТС]**

Pascal ABCNET

Добавлено через 1 минуту

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

odd(ord(s2[i]))then inc(k);

И как я ухитрился забыть про ord.....

@Puporev · 20.05.2017, 17:12

Сообщение от Mr.Spock

И как я ухитрился забыть про ord.....

Так в АВС можно и if odd(inttostr(s2[i]))

@U-III · 21.05.2017, 09:34

ord использовать немного неправильно
хотя для проверки четности пойдет.
ord('1') будет равно 31

@Puporev · 21.05.2017, 12:09

Сообщение от U-III

ord('1') будет равно 31

Не знаешь, не мели чепухи.
ord('1')=49;

Сообщение от U-III

хотя для проверки четности пойдет.

Вообще-то четность определяет не ord, a odd.

@U-III · 21.05.2017, 12:16

Puporev, прошу выбирать выражения, а то на малолетку смахиваешь.
ord('1')=$31 = 49;
Совсем забыл указать что это 16-ричная система.

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

if odd(ord(s2[i]))then inc(k);

Не ты ли писал.

Добавлено через 1 минуту
Нам нужно определить четность цифры или кода цифры в ASC таблице?
Так как 1 имеет код 49 - то определение четности кода - подходит

Добавлено через 1 минуту
А что свою чепуху то правим?

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

Не знаешь, не мели чепухи.
ord('1')=48;

@Puporev · 21.05.2017, 12:20

Сообщение от U-III

Не ты ли писал.

Так я и писал if odd(), что значит если нечетное.

Добавлено через 2 минуты

Сообщение от U-III

Нам нужно определить четность цифры или кода цифры в ASC таблице?

Так четность цифры и ее кода совпадают.

@U-III · 21.05.2017, 12:23

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

Так я и писал if odd(), что значит если нечетное.

Только на нечетность ты проверял не цифру в строке - а нечетность кода цифры в таблице ASC
Поэтому и написал что ord - немного не правильно. Вдруг нам нужно сложить сумму нечетных чисел.
Но для определения просто нечетности - пойдет. Так как коды цифр по четности/нечетности соответсвуют самим цифрам

Добавлено через 1 минуту
Вот теперь и прочитай мое первое сообщение, я написал что использовать ord немного не правильно, но для определения нечетности пойдет

@Puporev · 21.05.2017, 12:30

Сообщение от U-III

немного не правильно,

Немного это сколько в граммах?

@U-III · 21.05.2017, 12:39

Сообщение от U-III

на нечетность ты проверял не цифру в строке - а нечетность кода цифры в таблице ASC

Смотри

Добавлено через 58 секунд
В данном случае пример сильно зависит от кодировки.

@Puporev · 21.05.2017, 13:22

Коды цифр в любой из применяемых в Паскале кодировок от 48 до 57.

Pascal
1
2
for i:='0' to '9' do
write(ord(i):3)

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@U-III 59 / 59 / 12 Регистрация: 24.10.2012 Сообщений: 170
	21.05.2017, 09:34
	ord использовать немного неправильно хотя для проверки четности пойдет. ord('1') будет равно 31 0