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