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

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.