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.