Технический форум - Помогите составить программу

Технический форум (http://www.tehnari.ru/)

- Форум программистов (http://www.tehnari.ru/f22/)

- - Помогите составить программу (http://www.tehnari.ru/f22/t62908/)

Помогите составить программу

Составить программу, которая находит сумму порядковых номеров(кодов) букв, вход в слово SUM.

Цитата:

Сообщение от xardlin (Сообщение 657943)

Составить программу, которая находит сумму порядковых номеров(кодов) букв, вход в слово SUM.

Ну коль скоро язык программирования традиционно не указан, выбираем ТурбоПаскаль:

Код:

Var

 S:String;

 Sum:Word;

 i:Byte;

Begin

 Writeln('Enter the string:');

 Readln(S);

 Sum:=0;

 For i:=1 to Length(S) do Inc(Sum,Ord(S[i]));

 Writeln('Sum = ',Sum);

 Readln

End.