Question

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

Answer 1

Program Project1;var i, sum , colchet : integer; srarif : real;
begin sum := 0; colchet:= 0; for i:=10 to 99 do if(i mod 2 = 0) then begin sum := sum + i; colchet := colchet + 1; end; srarif := sum / colchet;writeln(srarif:0:3);end.

Answer 2

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

pascalCopy code
program AverageOfEvenNumbers;
var
  sum, count, number: integer;
begin
  sum := 0; // Инициализируем сумму нулем
  count := 0; // Инициализируем счетчик нулем

  // Перебираем все двузначные числа
  for number := 10 to 99 do
  begin
    // Проверяем, кратно ли число двум
    if number mod 2 = 0 then
    begin
      sum := sum + number; // Добавляем число к сумме
      count := count + 1; // Увеличиваем счетчик на 1
    end;
  end;

  // Вычисляем среднее арифметическое
  if count > 0 then
  begin
    writeln('Среднее арифметическое всех двузначных чисел, кратных двум: ', sum / count);
  end
  else
  begin
    writeln('Нет двузначных чисел, кратных двум.');
  end;

  readln;
end.

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