Помогите с заданием

Question

Текстовый файл содержит строку, составленную из символов латинского алфавита. Программа считывает данные файла (без вывода на экран), записывает их в строковую переменную, затем удаляет каждый четвертый символ в строковой переменной и выводит новую строку на экран. В программе пропущена одна команда. Запишите недостающую команду. 
 
Строка1=&#34;&#34;; 
Текст = Новый ЧтениеТекста( 
 
   &#34;c:\26.txt&#34;, 
 
   КодировкаТекста.ANSI, 
 
   Символы.ПС, 
 
             , 
 
   Истина     );      
 
Пока Истина Цикл 
 
  Строка =      Текст.ПрочитатьСтроку(); 
 
  Если Строка = Неопределено      Тогда 
 
    Прервать; 
 
  Иначе   
 
    Для i=0 по СтрДлина(Строка) цикл   
 
             Если (i+1)%4<>0 тогда 
 
            .. 
 
             КонецЕсли; 
 
    КонецЦикла; 
 
  КонецЕсли;   
 
КонецЦикла; 
 
Сообщить (Строка1);

Татьяна · Answer

Недостающей командой в данной программе является команда &#34;Строка1 += Строка[i]&#34;. Эта команда добавляет каждый символ, не являющийся четвертым, в новую строку. В итоге, новая строка будет содержать все символы исходной строки, кроме каждого четвертого символа. Вот как будет выглядеть исправленный код:  Строка1 = "" 
Текст = Новый ЧтениеТекста("c:\26.txt", КодировкаТекста.ANSI, Символы.ПС, , Истина) 
 
Пока Истина Цикл  
    Строка = Текст.ПрочитатьСтроку() 
    Если Строка = Неопределено Тогда  
        Прервать 
    Иначе    
        Для i=0 по СтрДлина(Строка) цикл    
            Если (i+1)%4 <> 0 тогда  
                Строка1 += Строка[i] 
            КонецЕсли 
        КонецЦикла 
    КонецЕсли    
КонецЦикла  
 
Сообщить(Строка1)

Саша Петров · Answer

Вам нужно добавить следующую команду внутри условия, чтобы скопировать символ в строку1, если условие (i+1)%4<>0 выполняется: Если (i+1)%4<>0 тогда Строка1 = Строка1 + Сред(Строка, i, 1); // Добавить символ в строку1 КонецЕсли; Эта команда добавит каждый символ, который не является четвертым символом в строке, в переменную Строка1.