Поправьте код. Вставка абзацев после каждых 20 слов из пяти букв

@well-wisher · Регистрация: 18.05.2020

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Var
r: string;
i: integer;
begin
  r:='папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5папа5';
 
while i <= LENGTH(r) do
  begin
    if (i mod 6 = 0) and (i > 0) and (i mod 60 <> 0) then INSERT(' ', r, i); 
    if (i mod 60 = 0) and (i > 0) and (i mod 120 <> 0)then INSERT(#10, r, i);                  
    if (i mod 120 = 0) and (i > 0) then INSERT(#10#10, r, i);
    i += 1;
    end;
  
  Writeln(r);
  
  end.

Дан текст нужно разбить расставить пробелы чтобы получилось по 5 букв в слове, через каждые 10 слов абзац, через каждые 20 слов 2 абзаца.

При выполнении выдает следующий текст. Не могу понять почему после двух абзацев (#10) сдвигается один символ в слове. Как это исправить? Уважаемые ГУРУ паскаля поможите .

папа5 папа5 папа5 папа5 папа5 папа5 папа5 папа5 папа5 папа5
папа5 папа5 папа5 папа5 папа5 папа5 папа5 папа5 папа5 папа5

папа 5папа 5папа 5папа 5папа 5папа 5папа 5папа 5папа 5папа
5папа 5папа 5папа 5папа 5папа 5папа 5папа 5папа 5папа 5папа

5пап а5пап а5пап а5пап а5пап а5пап а5пап а5пап а5пап а5пап
а5пап а5пап а5пап а5пап а5пап а5пап а5пап а5пап а5пап а5пап

@ZX Spectrum-128 · 21.05.2020, 14:37

well-wisher, не #10#10. А #13#10

@well-wisher · 21.05.2020, 14:46 **[ТС]**

#13#10 та же ерунда сдвиг ненужный получается

@well-wisher · 22.05.2020, 16:28 **[ТС]**

Разобрался сам, спасибо.

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,434
	21.05.2020, 14:37
	well-wisher, не #10#10. А #13#10 0

@well-wisher 0 / 0 / 0 Регистрация: 18.05.2020 Сообщений: 8
	21.05.2020, 14:46 [ТС]
	#13#10 та же ерунда сдвиг ненужный получается 0

@well-wisher 0 / 0 / 0 Регистрация: 18.05.2020 Сообщений: 8
	22.05.2020, 16:28 [ТС]
	Разобрался сам, спасибо. 0