Найти сумму, количество и среднее арифметическое всех трехзначных чисел с одинаковой первой и последней цифрой - Pascal ABC

Формулировка задачи:

найдите сумму,количество и среднее арифметическое всех натуральных трехзначных чисел,которые начинаются и заканчиваются одинаковыми цифрами

Решение задачи: «Найти сумму, количество и среднее арифметическое всех трехзначных чисел с одинаковой первой и последней цифрой»

Листинг программы

uses crt;
var i,S,k:integer;
    T: string;
begin
  S:=0;
  k:=0;
  for i:=101 to 999 do
    begin
      str(i,T);
      if T[1]=T[3] then
        begin
          inc(S,i);
          inc(k);
        end;
    end;
  writeln('Сумма = ', S, ' Количество = ',k, '  Среднее арифметическое = ', S/k);
end.

Объяснение кода листинга программы

В начале кода объявляются переменные S, k и T типа integer и строка соответственно.
Переменная S инициализируется значением 0, а переменная k - значением 0.
Затем происходит цикл от 101 до 999 (включительно), который выполняется для каждой трехзначной цифры.
Внутри цикла переменная i принимает значение текущей цифры.
Строка T формируется из числа i, используя функцию str().
Затем проверяется, равны ли первая и последняя цифры числа i.
Если это условие истинно, то увеличивается значение переменной S на текущее число i, и значение переменной k увеличивается на 1.
После завершения внутреннего цикла, выводится сообщение, содержащее сумму, количество и среднее арифметическое.
Код завершается после вывода сообщения.