помогите плз,строки

[Sirega]

В строке символов определит сумму кодов и ответ вывести в 16 сс.

[Alabay]

что значит вывести в 16сс?

[Sirega]

в шестнадцатиричной системе счисления.

[Rusl92]

в чем проблема? ord - код символа
а со строкой можно работать как с массивом
дальше переводишь в 16 сс посредством div and mod

[Sirega]

дальше переводишь в 16 сс посредством div and mod

Отсюда можно по подробнее

[Alabay]

я накодил только с выводом в десятичной системе. надо?

[Sirega]

Нет( мне исключительно надо в 16 системе счичления. ASCII код он вроде и выводит в 10 сч

[Tkirill]

uses crt;
var
s,st,b:string;
buf:char;
i,j,r:integer;
sum:longint;
begin
clrscr;
write(' -> ');
readln(s);
sum:=0;
for i:=1 to length(s) do
sum:=sum+ord(s[i]);
writeln(sum);
writeln;
writeln;
s:='0123456789ABCDEF';
st:='';
repeat
i:=sum mod 16;
st:=st+s[i+1];
sum:=sum div 16;
until sum<16;
st:=st+s[sum+1];
for i:=1 to length(st) div 2 do
begin
buf:=st[i];
st[i]:=st[length(st)-i+1];
st[length(st)-i+1]:=buf;
end;
writeln(st);
readln;
end.

[Sirega]

Спасибо большое)

[Serge_Bliznykov]

Tkirill
Sirega
а если 16ричную строку формировать в правильном порядке, то не потребуются трюки с перестановкой символов:

st:='';
repeat
  i:=sum mod 16;
  st:=s[i+1]+st;
  sum:=sum div 16;
until sum<16;
st:=s[sum+1]+st;

и всё, этот for i:=1 to length(st) div 2 do не нужен :-)