Question

Запишите на языке Паскаль программу,которая вычисляет сумму кодов букв в слове БАЙТ!

Answer 1

var 
st: string; 
i: byte; 
sum: integer;  
begin 
st := 'БАЙТ'; 
for i:=1 to Length(st) do sum:=sum+ord(st[i]); 
Writeln('Сумма кодов букв в слове БАЙТ = ', sum);
end.