Есть ответ 👍

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

265
368
Посмотреть ответы 3

Ответы на вопрос:

Maria404404
4,5(87 оценок)

var     s,word: string;     c: char;     k: integer;

begin    

readln(s);    

k : =0;    

i : =1;    

while(i < > length(s))dobegin        

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

word: =word+ s[i];            

inc(i);        

end;      

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

nc(k);        

nc(i);    

end;      

  writeln(k);

end.   


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.

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

 

dauren130
4,5(68 оценок)

Const   n = 30; var   r: array[1..n] of real;   i: integer;   s1,s2: real; begin   randomize;   writeln('значения радиусов');   s1 : = 0; s2: =0;   for i : = 1 to n do   begin       r[i] : = 60*random+20; { диапазон [20; 80] }       write(r[i]: 0: 3,' ');       if (i mod 2)=0 then s2: =s2+pi*sqr(r[i])       else s1: =s1+pi*sqr(r[i])   end;   writeln;   writeln('сумма площадей нечетных окружностей равна ',s1: 0: 3);   writeln('сумма площадей четных окружностей равна ',s2: 0: 3);   if s1> s2 then writeln('сумма площадей нечетных окружностей больше.')   else writeln('сумма площадей четных окружностей больше.') end. тестовое решение: значения радиусов 56.879 33.997 66.165 54.564 63.760 32.462 56.152 36.012 45.476 58.788 22.239 21.141 76.301 78.056 41.087 46.567 57.791 21.957 77.978 76.025 38.028 69.101 27.912 64.033 40.992 73.433 61.029 24.535 56.062 23.439 сумма площадей нечетных окружностей равна 141677.771 сумма площадей четных окружностей равна 126696.264 сумма площадей нечетных окружностей больше.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS