Question

Делится ли среднее арифметическое трёх цифр на последнее из них без остатка.(Pascal)

Answer 1

Проверка деления среднего арифметического на последнюю цифру

Для проверки деления среднего арифметического трех цифр на последнюю из них без остатка, можно использовать язык программирования Pascal. В Pascal можно написать программу, которая будет выполнять данную проверку и выводить результат.

Вот пример программы на Pascal, которая выполняет данную проверку:

program DivideAverageByLastDigit;
var
  a, b, c: Integer;
  average: Real;
begin
  // Ввод трех цифр
  writeln('Введите три цифры:');
  readln(a, b, c);
  
  // Вычисление среднего арифметического
  average := (a + b + c) / 3;
  
  // Проверка деления среднего арифметического на последнюю цифру без остатка
  if average mod c = 0 then
    writeln('Среднее арифметическое делится на последнюю цифру без остатка')
  else
    writeln('Среднее арифметическое не делится на последнюю цифру без остатка');
end.

В этой программе мы сначала вводим три цифры с помощью `readln(a, b, c)`. Затем мы вычисляем среднее арифметическое с помощью `(a + b + c) / 3`. Далее мы проверяем, делится ли среднее арифметическое на последнюю цифру без остатка с помощью `average mod c = 0`. Если это условие выполняется, то выводим сообщение "Среднее арифметическое делится на последнюю цифру без остатка", иначе выводим сообщение "Среднее арифметическое не делится на последнюю цифру без остатка".

Пример работы программы

Предположим, что мы вводим цифры 4, 5 и 2. В этом случае среднее арифметическое будет равно (4 + 5 + 2) / 3 = 3.6667. Последняя цифра равна 2. Так как 3.6667 не делится на 2 без остатка, программа выведет сообщение "Среднее арифметическое не делится на последнюю цифру без остатка".

Примечание

Пожалуйста, обратите внимание, что приведенный выше код является примером и может быть изменен или доработан в соответствии с вашими потребностями.