Определить, сколько раз в заданном тексте встречается каждое различное двухбуквенное сочетание - Pascal ABC
Формулировка задачи:
Задание
В заданном тексте определить,сколько раз встречается каждое различное двухбуквенное сочетание. (Как я понял, это определёННый,феРРум,кООператив...) (ну только разные)
И как вообще для таких "штук" рисуется блок схема,немного недопонял.
Решение задачи: «Определить, сколько раз в заданном тексте встречается каждое различное двухбуквенное сочетание»
textual
Листинг программы
var a: array ['А'..'Я','А'..'Я'] of Integer; for i:=2 to Length(s) do if (UpCase(s[i-1]) in ['А'..'Я']) and (UpCase(s[i]) in ['А'..'Я']) then Inc(a[UpCase(s[i-1]),UpCase(s[i])]); for c1:='А' to 'Я' do for c2:='А' to 'Я' do if a[c1,c2]>0 then WriteLn(c1,c2,' - ',a[c1,c2]);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д