Question

запишите на языке паскаль программу которая вычисляет сумму кодов букв в слове память

Answer 1

var i,s:integer; st:string;
begin
st:='память';
s:=0;
for i:=1 to length(st) do s:=s+ord(st[i]);
writeln('s = ',s);
end.