Pascal. Найти сумму кодов(ASCII) слова, введенного с клавы.

Question

Pascal. Найти сумму кодов(ASCII) слова, введенного с клавы.

Пользователь удален Ученик (126), закрыт 15 лет назад

Нужен код задачи. заранее спс)

Answer 1

Var
St:String
s,i:Integer;
Begin
Readln(St);
s:=0;
For i:=1 To Length(St) Do
s:=s+Ord(St[ i ]);
Writeln(s);
Readln
End.

Answer 2

str:String;
ch:char;
i,num:byte;
count:word;
begin
for i :=1 to Length(str)
begin
ch := str[ i ];
num := Ord(ch);
count := count + num;
end;
WriteLn (count);
end.

Answer 3

function CutA(S:String):String;
begin
while Pos('A',UpperCase(s))>0 do
begin
Delete(s,Pos('A',UpperCase(s)),1);
end;
Result:=s;
end;