shinnid S shinnid Регистрация 8 Окт 2013 Сообщения 94 Репутация -8 Спасибо 0 Монет 0 28 Янв 2017 #1 Помогите написать программу на языке Pascal, которая вычисляет сумму кодов букв, в словах до 10 символов. (например в слове бамбук)
Помогите написать программу на языке Pascal, которая вычисляет сумму кодов букв, в словах до 10 символов. (например в слове бамбук)
YouTub`chik Y YouTub`chik Регистрация 14 Дек 2013 Сообщения 88 Репутация 0 Спасибо 0 Монет 0 28 Янв 2017 #2 есть операции которые переводят посимвольно строку в анси коды и там можешь скоко угодно суммировать.... лучший выбор.. не справишься - пиши пм Позитивный голос 0
есть операции которые переводят посимвольно строку в анси коды и там можешь скоко угодно суммировать.... лучший выбор.. не справишься - пиши пм
vodka V vodka Регистрация 21 Июл 2013 Сообщения 78 Репутация 0 Спасибо 0 Монет 0 28 Янв 2017 #3 var s: string; i, summ: integer; begin readln(s); summ := 0; for i:=1 to Length(s) do summ := summ + ord(s); writeln(summ); end. Позитивный голос 0
var s: string; i, summ: integer; begin readln(s); summ := 0; for i:=1 to Length(s) do summ := summ + ord(s); writeln(summ); end.
Krasich K Krasich Регистрация 27 Дек 2013 Сообщения 71 Репутация -3 Спасибо 0 Монет 0 28 Янв 2017 #4 Примерно так: var s:string[10]; aacked array[1..10] of byte absolute s[1]; ss:integer; i:integer; begin readln(s); ss:=0; for i:=1 to Length(s) do ss:=ss+a; writeln(ss); end. Позитивный голос 0
Примерно так: var s:string[10]; aacked array[1..10] of byte absolute s[1]; ss:integer; i:integer; begin readln(s); ss:=0; for i:=1 to Length(s) do ss:=ss+a; writeln(ss); end.