profile
Размещено 5 лет назад по предмету Информатика от fanker

В введенной строке подсчитать количество слов, что одинаково начинаются и заканчиваются
(Примечание: Слова в текстовой строке отделены пробелами или группами пробелов.

  1. Ответ на вопрос
    Ответ на вопрос дан грыгра2

    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.

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

     

  2. Ответ на вопрос
    Ответ на вопрос дан bizoga

    var     s, word: string;     c: Char;     k: Integer;

    begin    

    readLn(s);    

    k := 0;    

    i := 1;    

    while (i <> length(s)) do begin        

    word := '';         while (i <> length(s)) and (s[i] <> ' ') do begin            

    word := word + s[i];            

    inc(i);        

    end;      

      if word[1] = word[length(word)] then             i

    nc(k);        

    nc(i);    

    end;      

      writeLn(k);

    end.   

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.