Дана строка. Подсчитать количество слов, начинающихся с буквы б.TurboPaskal

Question

59

Дана строка. Подсчитать количество слов, начинающихся с буквы б.TurboPaskal

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

naomi · Accepted Answer

43

naomi

24 февраля 2023

Vara: string; i,k: byte; begin readln (a); if (a[1]='B') or (a[1]='b') then k: =1; for i: =2 to length (a) do if a[i]=' then if (a[i+1]='b') or (a[i+1]='B') theninc (k); writeln (k); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: