Дана строка символов. Найти количество слов начинающихся на букву…

Question

Дана строка символов. Найти количество слов начинающихся на букву а. Через паскаль пожалуйста ничего в нем не соображаю а иветешникзадолбал

Answer 1

68

alexkuzmich

03 марта 2023

var a: string; i: integer; beginreadln (a); a: =a+'; while length (a) >0 do beginif a[1]='a' then inc (i); delete (a,1,pos (',a); end; writeln (i); end.

пользователи выбрали этот ответ лучшим

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

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

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

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