Question

1. Запишите на языке Паскаль программу, которая вычисляет сумму кодов букв в слове «САЙТ». Указание: достаточно объявить одну переменную целого типа (но может быть и другой вариант, как сработает ваше направление мысли). В эту переменную занести сумму кодов букв слова САЙТ. Чтобы определить код отдельного символа используем функцию ord, аргумент функции – символ заключенный в апострофы, например ord(‘Д’).

Answer 1

===PascalABC.NET===

program brainly;

var

 code :integer;

begin

 code += ord('С');

 code += ord('А');

 code += ord('Й');

 code += ord('Т');

 Write('Ответ: ', code);

end.

Также прикрепляю результат выполнения и саму программу во вложения.

Answer 2

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

pascalCopy code
program SumOfCharCodes;

var
  word: string;
  sum: integer;
  i: integer;

begin
  word := 'САЙТ';
  sum := 0;

  for i := 1 to Length(word) do
  begin
    sum := sum + Ord(word[i]);
  end;

  writeln('Сумма кодов букв в слове "САЙТ": ', sum);
end.

Программа объявляет переменную word для хранения слова "САЙТ" и переменную sum для хранения суммы кодов букв. Затем она использует цикл for для перебора каждого символа в слове, находит его код с помощью функции Ord и добавляет его к общей сумме sum. В результате на экран выводится сумма кодов букв в слове "САЙТ".