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

[xardlin]

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

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

 

[Vladimir_S]

Составить программу, которая находит сумму порядковых номеров(кодов) букв, вход в слово 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.