В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

Язык программирования C# Дана исходная строка Мама мыла рану
Между словами мама и мыла вставить параметр который будет вводится с текстово поля и вести данное предложения с параметра с сообщение месендж

Показать ответ
Ответ:
Мarshmallow
Мarshmallow
02.03.2021 22:46

компилятор и отладчики для создания программ под реальный режим DOS, под DOS в 16-битном защищенном режиме с использованием расширителя DOS RTTM и драйвера DPMI, а также под Windows 3.x

Алгоритм раскраски во встроенном редакторе немного отличается от того, как понимает синтаксис компилятор. А именно, конструкция (*) воспринимается редактором как законченный комментарий, а компилятором — как начало комментария. Это может использоваться, чтобы внутри комментариев вставлять синтаксически раскрашенные участки, например, демонстрация использования. Или, например, существуют Паскаль-вирусы, которые записывают своё тело после 80й колонки, используя (*), чтобы старый текст выглядел без изменений

0,0(0 оценок)
Ответ:
4578000872
4578000872
16.02.2022 23:46

program z_string; 
uses crt; 
const Letters = ['a'..'z','A'..'Z','а'..'я','А'..'Я']; 
var StringS, Symbol :string; 
     CounterI, Number:byte; 
begin

 clrscr; 
 writeln('Введите строку текста'); 
 readln(StringS); 
  
 Number := 0; 
 Symbol := ''; 
for CounterI := 1 to length(StringS) do 
 begin 
  if (StringS[CounterI] in Letters) and (Symbol = '') then 
   Symbol := StringS[CounterI]; 
    
  if (not(StringS[CounterI] in Letters)) and (CounterI <> 1) then 
  begin 
   if StringS[Counteri - 1] = Symbol then 
    inc(Number); 
   Symbol := '';
  end; 
   
  if (CounterI = length(StringS)) and (StringS[CounterI] = Symbol) then 
   inc(Number); 
 end; 
  
 writeln; 
 writeln('Количество слов начинающихся и заканчивающихся одной и той же буквой ', Number); 
 readln; 
end.

ахах тоже составляли такую,прикольная;)

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота