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

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

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Найти сумму, среднее арифметическое и количество цифр в числе

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

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

uses crt;
var
 i, n, x, sum, y: integer;
 s: string;
 f: boolean;
begin
read(n);
x:= n;
sum:= 0;
i:= 0;
while (x > 0) do
begin
   y:= x mod 10;
   x:= x div 10;
   sum:= sum+y;
   inc(i);
end;
str(n, s);
f:= false;
for i:= 2 to length(s) do
  if(s[i] = s[i-1]) then
    f:= true;
if f then writeln('est sosednie odinak') else writeLn('net sosedn odinak');
writeln('summa = ', sum, ' sr arifmet = ', sum/i, ' kolvo cifr = ', i);
readkey;
end.

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

Этот код на языке Pascal предназначен для выполнения следующих задач:

Ввод целого числа.
Проверка, есть ли в его записи две одинаковые цифры.
Нахождение суммы цифр числа.
Нахождение среднего арифметического цифр числа.
Определение количества цифр в числе. Код начинается с использования библиотеки crt, которая предоставляет функции ввода и вывода. Затем определяются переменные: i, n, x, sum, y - целые числа; s - строка; f - логическое значение (true - если в числе есть две одинаковые цифры, false - иначе). Далее идет цикл while, который выполняется до тех пор, пока x (введенное число) не станет равным нулю. Внутри цикла происходит следующее:
- y - это остаток от деления x на 10 (получение последней цифры числа).
- x - это целая часть от деления x на 10 (получение десятичной части числа).
- sum - это сумма всех цифр числа.
- i - это счетчик цифр числа. После окончания внутреннего цикла, выводится строка n (введенное число), используя функцию str(). Затем определяется переменная f, которая проверяет, есть ли в строке s (результат внутреннего цикла) две одинаковые цифры. Если такие цифры есть, то значение f становится true, иначе - false. Затем выводится сообщение, основанное на значении переменной f. Если f равно true, то выводится есть две одинаковые цифры, иначе - нет двух одинаковых цифр. В конце кода вычисляются сумма цифр числа (summa) и среднее арифметическое цифр числа (sr arifmet). Значение i используется для определения количества цифр в числе (kolvo cifr). Наконец, функция readkey() вызывается для выхода из программы.