Подсчёт букв - окончание строки

@maken9 · Регистрация: 27.02.2014

Студворк — интернет-сервис помощи студентам

Условия: Дана строка. Подсчитать кол-во букв к в последнем слове.
Есть программа:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
Var s,s1:string;
    i,k:byte;
Begin
    write('Введите строку: ');readln(s);
    k:=0;s1:='';
    For i:=Length(s) downto 1 do
     if not(s[i] in [' ',',','-']) then s1:=s1+s[i]
      else break;
    For i:=1 to Length(s1) do
     if s1[i]='k' then inc(k);
    if k>0 then write('В последнем слове букв "k"= ',k)
     else write('В последнем слове буква "k" не встречаются');
End.

Как сделать, что-бы строка могла заканчиваться любым символом( пробелом, многоточием, Восклицат или другими знаками, точкой)?

@Puporev · 20.07.2015, 20:51

Так строка же вводится, так и заканчивай ввод каким символом хочешь.

@maken9 · 20.07.2015, 21:03 **[ТС]**

последнее слово+знак + пара пробелов - не считает
типо строка "кривая" может быть на входе

@Puporev · 20.07.2015, 21:51

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const rz=[' ',',','.','?','!'];
Var s:string;
    i,k:byte;
Begin
writeln('Введите строку из слов латинскими буквами ');
readln(s);
i:=length(s);
while(s[i] in rz)and(i>0) do dec(i);
if i=0 then write('Строка не содержит слов')
else
 begin
  k:=0;
  while not(s[i] in rz)and(i>0) do
   begin
    if upcase(s[i])='K' then inc(k);
    dec(i);
   end;
  write('Количество букв k в последнем слове=',k);
 end;
End.

Новые блоги и статьи Все статьи Все блоги /
Киев стоит - украинская песня zorxor 28.01.2026 wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	20.07.2015, 20:51
	Так строка же вводится, так и заканчивай ввод каким символом хочешь. 0

@maken9 0 / 0 / 0 Регистрация: 27.02.2014 Сообщений: 19
	20.07.2015, 21:03 [ТС]
	последнее слово+знак + пара пробелов - не считает типо строка "кривая" может быть на входе 0