Паскаль. подсчитать сколько букв начинается с последней буквы первого слова

290

390

Посмотреть ответы 2

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

abdylaevapatima

Информатика

4,5(19 оценок)

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! begin var a: =readlnstring('вводите: ').towords; var c: =a[0].last; writeln('найдено ',a.where(w-> w.first=c).count, ' слов, начинающихся с "',c,'"') end. пример вводите: туча дождь астроном баран арбуз зебра астра велосипед найдено 3 слов, начинающихся с "а" вариант "а нас в школе учат так", который якобы "проще" var s: string; c: char; i,k,l,p: integer; begin // предполагается, что слова разделены ровно одним пробелом write('вводите: '); readln(s); l: =length(s); if l=1 then writeln('найдено одно слово') else begin p: =pos(' ',s); if (p=0) and (s[1]=s[l]) then writeln('найдено одно слово') else begin c: =s[p-1]; if s[1]=c then k: =1 else k: =0; for i: =p+1 to length(s)-1 do if (s[i]=' ') and (s[i+1]=c) then inc(k); writeln('найдено ',k,' слов, начинающихся с "',c,'"') end end end.

smalik8

Информатика

4,6(28 оценок)

Var i: integer; begin for i: =75 downto 5 do begin if i mod 5=0 then writeln(i); end; end.

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

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

Задай свой вопрос

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

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

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

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

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

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

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