Рассматривается множество целых чисел, принадлежащих числовому отрезку [1476, 7039], которые удовлетворяют следующим условиям: - кратны 2, но не кратны 16; - цифра в разряде десятков не менее 4. Найдите количество таких чисел и среднее арифметическое минимального и максимального числа. В ПАСКАЛЕ!

Решение на Паскале.

Нужно найти числа из отрезка [1476; 7039], которые:

1. делятся на 2;

2. не делятся на 16;

3. цифра в разряде десятков не меньше 4.

Будем перебирать все числа от 1476 до 7039 и проверять условия.

Для каждого подходящего числа будем:

• увеличивать счетчик;

• запоминать первое найденное число (минимальное);

• обновлять последнее найденное число (максимальное);

• складывать числа для проверки среднего.

Среднее арифметическое минимального и максимального:

Программа:

pascal




program zadacha;
var
  i, count, min, max, sum: integer;
  tens: integer;
  avg: real;
begin
  count := 0;
  sum := 0;
  min := 0;
  max := 0;
  for i := 1476 to 7039 do
  begin
    { Проверяем кратность 2 и некратность 16 }
    if (i mod 2 = 0) and (i mod 16 <> 0) then
    begin
      { Получаем цифру десятков }
      tens := (i div 10) mod 10;
      { Проверяем цифру десятков }
      if tens >= 4 then
      begin
        count := count + 1;
        sum := sum + i;
        if min = 0 then
          min := i;
        max := i;
      end;
    end;
  end;
  avg := (min + max) / 2;
  writeln('Количество чисел: ', count);
  writeln('Минимальное число: ', min);
  writeln('Максимальное число: ', max);
  writeln('Среднее арифметическое: ', avg:0:2);
end.

При выполнении программа выведет:

Количество чисел: 1389
Минимальное число: 1478
Максимальное число: 7038
Среднее арифметическое: 4258.00

Ответ:

• количество таких чисел: 1389;

• среднее арифметическое минимального и максимального числа: 4258.