Pascal ABC: Найти среднее арифметическое цифр введенного 3-значного числа.

Среднее арифметическое цифр 3-значного числа можно найти, сложив все цифры числа и разделив полученную сумму на количество цифр в числе, то есть на 3.

Для того чтобы найти среднее арифметическое цифр введенного 3-значного числа в Pascal ABC, мы можем разбить это число на отдельные цифры, затем сложить их и разделить на количество цифр.

Пример кода на Pascal ABC:

program AverageDigits;

var
  num, digit1, digit2, digit3, sum, average: integer;

begin
  writeln('Введите трехзначное число: ');
  readln(num);

  digit1 := num div 100;
  digit2 := (num div 10) mod 10;
  digit3 := num mod 10;

  sum := digit1 + digit2 + digit3;
  average := sum div 3;

  writeln('Среднее арифметическое цифр введенного числа: ', average);
  
end.

При вводе трехзначного числа, например 345, программа найдет среднее арифметическое цифр (3+4+5)/3 = 4.

Для того чтобы найти среднее арифметическое цифр введенного трёхзначного числа в языке программирования Pascal ABC, нужно выполнить следующие шаги:

1. Прочитать введённое пользователем число.
2. Разделить это число на отдельные цифры.
3. Найти сумму этих цифр.
4. Разделить сумму на количество цифр (в данном случае, на 3) для получения среднего арифметического значения.

Рассмотрим более подробно каждый из этих шагов и напишем соответствующую программу.

Шаг 1: Ввод числа

Сначала нужно запросить у пользователя ввод трёхзначного числа. Для этого используем процедуру ReadLn.

Шаг 2: Разделение числа на цифры

Трёхзначное число можно разделить на цифры, используя операции деления и взятия остатка от деления. Например, для числа 123:

• Первая цифра (сотни): 123 div 100 = 1
• Вторая цифра (десятки): (123 div 10) mod 10 = 2
• Третья цифра (единицы): 123 mod 10 = 3

Шаг 3: Нахождение суммы цифр

Сумма цифр будет равна сумме этих трёх значений.

Шаг 4: Нахождение среднего арифметического

Среднее арифметическое цифр вычисляется делением суммы на 3.

Теперь рассмотрим пример программы на Pascal ABC:

program AverageOfDigits;

var
  number: integer;
  digit1, digit2, digit3: integer;
  sum: integer;
  average: real;

begin
  // Запрос ввода трёхзначного числа
  Write('Введите трёхзначное число: ');
  ReadLn(number);

  // Проверка, что число трёхзначное
  if (number < 100) or (number > 999) then
  begin
    WriteLn('Ошибка: введено не трёхзначное число.');
    Exit;
  end;

  // Разделение числа на цифры
  digit1 := number div 100;       // Первая цифра (сотни)
  digit2 := (number div 10) mod 10; // Вторая цифра (десятки)
  digit3 := number mod 10;       // Третья цифра (единицы)

  // Нахождение суммы цифр
  sum := digit1 + digit2 + digit3;

  // Нахождение среднего арифметического
  average := sum / 3;

  // Вывод результата
  WriteLn('Среднее арифметическое цифр числа ', number, ' равно ', average:0:2);
end.

Пояснения:

1. Ввод числа: Используем ReadLn для ввода числа.
2. Проверка: Проверяем, что введенное число является трёхзначным. Если нет, выводим сообщение об ошибке.
3. Разделение на цифры: Используем целочисленное деление (div) и взятие остатка (mod) для выделения каждой цифры.
4. Сумма и среднее арифметическое: Вычисляем сумму цифр и делим её на 3 для получения среднего арифметического. Результат выводим с двумя знаками после запятой (:0:2).

Эта программа корректно выполняет все необходимые шаги для нахождения среднего арифметического цифр введенного трёхзначного числа.