Question

Составьте программу для нахождения среднего арифметического двузначных чисел, кратных 3, с использованием параметрического цикла. Ответ прикрепите в виде файла в среде PascalABC.

Answer 1

var i,k,c:integer;
begin
k:=0;
c:=0;
for i:=10 to 99 do
begin
if ((i mod 3)=0) then
begin
k:=k+i;
c:=c+1;
end;
end;
writeln (k/c);
end.

Answer 2

К сожалению, я не могу создать файлы, но я могу предоставить вам код на языке PascalABC. Вы можете скопировать его и вставить в среду разработки PascalABC для дальнейшего использования.

program AverageOfMultiples;

var
  total, count, number: integer;
  average: real;

begin
  // Инициализация переменных
  total := 0;
  count := 0;

// Цикл для ввода двузначных чисел
  repeat
    write('Введите двузначное число (для завершения введите 0): ');
    readln(number);

// Проверка, является ли число двузначным и кратным 3
    if (number >= 10) and (number <= 99) and (number mod 3 = 0) then
    begin
      total := total + number; // Добавление числа к сумме
      count := count + 1;      // Увеличение счетчика
    end;
  until number = 0; // Прекращение ввода при введении 0

// Проверка, были ли введены подходящие числа
  if count > 0 then
  begin
    // Вычисление среднего арифметического
    average := total / count;

// Вывод результата
    writeln('Среднее арифметическое двузначных чисел, кратных 3: ', average:0:2);
  end
  else
    writeln('Нет подходящих чисел для вычисления среднего арифметического.');

readln; // Для ожидания нажатия клавиши перед завершением программы
end.

Просто скопируйте этот код в среду разработки PascalABC и выполните программу. Она позволит вам ввести двузначные числа, и после ввода нуля выдаст среднее арифметическое введенных чисел, кратных 3.