Question

1. Найти среднее арифметическое цифр (сумму цифр) четырехзначного числа N, если среднее арифметическое (сумма цифр) больше 5 и является чётным числом на экран выдать значение. ПОМОГИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ!

Answer 1

Program a;  // имя программы
var n:string; // четырехзначное число будем вводить с клавы
var n1, n2, n3, n4, err: integer; // n1 - n4 это цифры числа, например 1234
var sa: double; // среднее арифметическое
Begin // начало
Read( n ); // вводим с клавиатуры число N
Val( n[1], n1, err ); // первая цифра числа N
Val( n[2], n2, err ); // вторая цифра числа N
Val( n[3], n3, err ); // третья цифра числа N
Val( n[4], n4, err ); // четвертая цифра числа N
sa := ( n1 + n2 + n3 + n4 ) / 4;  // находим среднее арифметическое
if ( sa / 2 = Trunc( sa / 2 ) ) and ( sa > 5 ) then Write( sa ); // если оно четное и больше пяти - выдаем значение на экран
End.  // конец

Answer 2

Конечно, я могу помочь вам написать программу на Паскале, которая найдет среднее арифметическое цифр четырехзначного числа N и выдаст значение, если оно больше 5 и является четным числом. Вот пример такой программы:

pascalCopy code
program AverageDigits;

var
  N, sum, average: Integer;
  digitCount: Integer;
  digit: Integer;

begin
  Write('Введите четырехзначное число N: ');
  Readln(N);

  sum := 0;
  digitCount := 0;
  average := 0;

  // Суммируем цифры числа N
  while N > 0 do
  begin
    digit := N mod 10;
    sum := sum + digit;
    digitCount := digitCount + 1;
    N := N div 10;
  end;

  // Вычисляем среднее арифметическое
  if digitCount > 0 then
    average := sum div digitCount;

  // Проверяем условия и выводим результат
  if (average > 5) and (average mod 2 = 0) then
    Writeln('Среднее арифметическое цифр числа больше 5 и является четным числом.')
  else
    Writeln('Среднее арифметическое цифр числа не удовлетворяет условиям.');

  Readln;
end.

Программа просит вас ввести четырехзначное число N, затем она находит сумму цифр этого числа и вычисляет среднее арифметическое. Затем программа проверяет условия и выводит соответствующее сообщение.

Обратите внимание, что программа не проверяет, является ли введенное значение действительно четырехзначным числом. Если вы хотите добавить эту проверку, вам нужно будет внести соответствующие изменения в программу.