Вычислить сумму кодов всех букв входящих в заданное слово

[McFrey]

Вычислить сумму кодов всех букв, входящих в заданное слово (слово состоит из K букв, 0<К<50).

[Вадим Мошев]

s:=0;
for i:=1 to length(word) do
   s:=s+ord(word[i]);

[BARNEY]

не катит если буква повторяется 2 раза по логики задания не надо суммировать.
Имхо.
по этому данные загоняем в массив... при заполнении которого проверяем если ли в нём уже это значение.

[veniside]

"код буквы", вобще-то, зависит от кодировки

[BARNEY]

veniside
и как это противоречит моему предложению? Массив заполняем конечно не буквами а их кодами.

допустим слово "МАМА" и "MAМА" в 1 случая сумма букв равна 2 в другом 4

[veniside]

> и как это противоречит моему предложению?

не знаю, я обращался к ТС )

[McFrey]

Ребят спасибо вам) я уже разобрался если интересно вот программа которая вышла

program №1;
uses crt;
var st:String;
q,i:Integer;
begin
clrscr;
writeln('Данная программа позволяет вычислить сумму кодов всех букв входящих в заданное слово');
writeln('Введите слово ( количество букв в слове не должно превышать 50)');
readln(st);
q:=0;
for i:=1 to length(st) do
q:=q+ord(st[ i ]);
Writeln(q);
readkey;
end.

[Вадим Мошев]

program №1;

№1 - это недопустимый индентификатор. Названия идентификаторов должна начинаться с букв латинского алфавита (или с символа "_"), могут содержать только буквы, цифры или символ "_".
Например,
Pr00101R_A_M - допустимый индентификатор
3M@ssiv - НЕдопустимый идентификатор, так как начинается с цифры и содержит символ "@", который буквой не является, хотя и присутствует в синтаксисе языка паскаль.

[McFrey]

а как ввести ограничение чтобы можно было напечатать только слово?

[McFrey]

используя оператор val вот что выходит
readln(st);
val(st,w,code);
if (code<>0) then
begin
q := 0;
for i:= 1 to length(st) do
q:= q + ord(st[ i ]);
writeln('Сумма кодов всех букв равна ', q);
end
else writeln('Вам необходимо ввести слово.');

не позволяет вводить цифры, но символы можно ввести. Если знает кто скажите как ограничить ввод только на слова. Заранее благодарен