79

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

acid_creker 03 апреля 2023

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

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

68

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.

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

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...