Коль кругом всё будет мирно, Так сидеть он будет смирно; Но лишь чуть со стороны Ожидать тебе войны, Иль набега силы бранной, Иль другой беды незваной, Вмиг тогда мой петушок Приподымет гребешок, Закричит и встрепенется И в то место обернется».
Здесь описывается алгоритм ветвления (если...то, иначе):
Коль кругом всё будет мирно, (Если всё мирно) Так сидеть он будет смирно; (То сидит смирно) Но лишь чуть со стороны (Иначе) Ожидать тебе войны, (Или) Иль набега силы бранной, (Или) Иль другой беды незваной, Вмиг тогда мой петушок...
var s:string; i,j,k:integer; begin; s:='Молодая княгиня Болконская приехала с работой в шитом золотом бархатном мешке. Ее хорошенькая, с чуть черневшимися усиками верхняя губка была коротка по зубам, но тем милее она открывалась и тем еще милее вытягивалась иногда и опускалась на нижнюю. Как это бывает у вполне привлекательных женщин, недостаток ее — короткость губы и полуоткрытый рот — казались ее особенною, собственно ее красотой. Всем было весело смотреть на эту полную здоровья и живости хорошенькую будущую мать, так легко переносившую свое положение. Старикам и скучающим, мрачным молодым людям казалось, что они сами делаются похожи на нее, побыв и поговорив несколько времени с ней. Кто говорил с ней и видел при каждом слове ее светлую улыбочку и блестящие белые зубы, которые виднелись беспрестанно, тот думал, что он особенно нынче любезен. И это думал каждый.'; for i:=1 to length(s) do for j:=1 to length(alf) do if s[i]=alf[j] then inc(k); writeln(k); end.
var s:string; i,j,k:integer; begin; s:='Молодая княгиня Болконская приехала с работой в шитом золотом бархатном мешке. Ее хорошенькая, с чуть черневшимися усиками верхняя губка была коротка по зубам, но тем милее она открывалась и тем еще милее вытягивалась иногда и опускалась на нижнюю. Как это бывает у вполне привлекательных женщин, недостаток ее — короткость губы и полуоткрытый рот — казались ее особенною, собственно ее красотой. Всем было весело смотреть на эту полную здоровья и живости хорошенькую будущую мать, так легко переносившую свое положение. Старикам и скучающим, мрачным молодым людям казалось, что они сами делаются похожи на нее, побыв и поговорив несколько времени с ней. Кто говорил с ней и видел при каждом слове ее светлую улыбочку и блестящие белые зубы, которые виднелись беспрестанно, тот думал, что он особенно нынче любезен. И это думал каждый.'; for i:=1 to length(s) do for j:=1 to length(alf) do if s[i]=alf[j] then inc(k); writeln(k); end.
Так сидеть он будет смирно;
Но лишь чуть со стороны
Ожидать тебе войны,
Иль набега силы бранной,
Иль другой беды незваной,
Вмиг тогда мой петушок
Приподымет гребешок,
Закричит и встрепенется
И в то место обернется».
Здесь описывается алгоритм ветвления (если...то, иначе):
Коль кругом всё будет мирно,
(Если всё мирно)
Так сидеть он будет смирно;
(То сидит смирно)
Но лишь чуть со стороны
(Иначе)
Ожидать тебе войны,
(Или)
Иль набега силы бранной,
(Или)
Иль другой беды незваной,
Вмиг тогда мой петушок...