Question

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

Answer 1

Программа:

var

i,a,b,n: integer;

begin

for i:=1476 to 7039 do

if (i mod 2 = 0) and (i mod 16 <> 0) then

if ((i div 10) mod 10 >= 4) then

begin

n:=n+1;

if a=0 then a:=i;

if a>i then a:=i;

if b<i then b:=i;

end;

writeln('количество= ',n);

writeln('средн.арифм. от мин. и макс.= ',(a+b)/2);

end.

Результат её работы:

количество= 1455

средн.арифм. от мин. и макс.= 4237

Answer 2

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

pascalCopy code
program FindNumbers;

var
  number, minNumber, maxNumber, sum, count: integer;

begin
  minNumber := 0; // Инициализируем минимальное число значением, которое гарантированно меньше диапазона
  maxNumber := 0; // Инициализируем максимальное число значением, которое гарантированно больше диапазона
  sum := 0; // Инициализируем сумму чисел
  count := 0; // Инициализируем счетчик чисел
  
  // Перебираем числа от 1476 до 7039
  for number := 1476 to 7039 do
  begin
    // Проверяем условия
    if (number mod 2 = 0) and (number mod 16 <> 0) and ((number div 10) mod 10 >= 4) then
    begin
      // Если число соответствует условиям, обновляем минимальное и максимальное число
      if (count = 0) or (number < minNumber) then
        minNumber := number;
      if (count = 0) or (number > maxNumber) then
        maxNumber := number;
      
      // Увеличиваем сумму и счетчик
      sum := sum + number;
      count := count + 1;
    end;
  end;
  
  // Выводим результаты
  writeln('Количество чисел: ', count);
  if count > 0 then
  begin
    writeln('Минимальное число: ', minNumber);
    writeln('Максимальное число: ', maxNumber);
    writeln('Среднее арифметическое минимального и максимального чисел: ', (minNumber + maxNumber) / 2);
  end
  else
  begin
    writeln('Нет чисел, удовлетворяющих условиям.');
  end;
end.

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