Question

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

Answer 1

const

  s = 'БАЙТ';

var

  i, sum : integer;

begin

  sum := 0;

  for i := 1 to 4 do

    sum := sum + ord (s[i]);

  writeln (sum);

end.