Лучшие помощники
13 сентября 2023 12:50
1059

Файл содержит текст. Программа подсчитывает количество прописных латинских букв в тексте. В программе пропущена одна команда. Запишите недостающую команду.


k=0;

Текст = Новый ЧтениеТекста(

  "c:\26.txt",

  КодировкаТекста.ANSI,

  Символы.ПС,

            ,

  Истина    );     

Пока Истина Цикл

 Строка =     Текст.ПрочитатьСтроку();

 Если Строка = Неопределено     Тогда

   Прервать;

 Иначе   

   Для i=1 по СтрДлина(Строка) цикл  

      Если     КодСимвола(Сред(Строка,i,1))<=122 и КодСимвола(Сред(Строка,i,1))>=97 тогда

               …

      КонецЕсли; 

  КонецЦикла;

 КонецЕсли; 

КонецЦикла; 

Сообщить (k);

1 ответ
Посмотреть ответы
Программа подсчитывает количество прописных латинских букв в тексте. Однако, в программе пропущена команда для увеличения счетчика k. Недостающая команда: k = k + 1;
0
·
Хороший ответ
13 сентября 2023 12:51
Остались вопросы?
Найти нужный