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

Для вычисления суммы кодов букв в слове "БАЙТ" на языке Паскаль, необходимо воспользоваться функцией Ord, которая возвращает ASCII-код символа. В случае с кириллицей, для каждого символа будет возвращаться его код в кодировке, принятой в Паскале (обычно это Windows-1251).

Вот пример программы на Паскале, которая вычисляет сумму кодов букв в слове "БАЙТ":

pascal
program SumOfChars;
var
  word: string;
  sum, i: integer;
begin
  word := 'БАЙТ';  { задаём слово }
  sum := 0;
  { Проходим по всем символам строки }
  for i := 1 to Length(word) do
    sum := sum + Ord(word[i]);  { прибавляем код символа }
  { Выводим результат }
  writeln('Сумма кодов букв в слове "', word, '" = ', sum);
end.

Пояснение:

1. В переменной word хранится строка "БАЙТ".
2. Переменная sum инициализируется нулём и будет использоваться для накопления суммы кодов символов.
3. Цикл for i := 1 to Length(word) проходит по каждому символу строки.
4. Для каждого символа в строке вызывается функция Ord(word[i]), которая возвращает ASCII-код этого символа.
5. Сумма этих кодов сохраняется в переменной sum.
6. В конце программы выводится результат с помощью writeln.

Пример вычисления:

• Код символа 'Б' (в кодировке Windows-1251) равен 1041.
• Код символа 'А' равен 1040.
• Код символа 'Й' равен 1069.
• Код символа 'Т' равен 1058.

Итак, сумма будет равна:
1041 + 1040 + 1069 + 1058 = 4208.

Вывод программы будет следующим:

arduino
Сумма кодов букв в слове "БАЙТ" = 4208

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