Question

Напишите программу которая в последовательности натуральных чисел определяет среднее арифметическое чисел кратных 3 или сообщает , что таких чисел нет. программа на вход получает натуральные числа , последовательность заканчивается при вводе 0 . (pascal)

Answer 1

Var
A,S,N:integer;
Begin
WriteLn('Введите числа');
S:=0;
N:=-1;

Repeat
Read(A);
if A mod 3 = 0 then
   Begin
   S:=S+A;
   N:=N+1;
   End
Until A=0;

WriteLn(S/N);
End.

Answer 2

Program n1;
var a,k,sum: integer;
begin
readln(a);
k:=0;
sum:=0;
while a<>0 do
begin
if a mod 3=0 then
begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
if k=0 then write('нет') else
write(sum/k);
end.

Answer 3

Программа для определения среднего арифметического чисел, кратных 3

Вот пример программы на языке Pascal, которая позволяет определить среднее арифметическое чисел, кратных 3, в последовательности натуральных чисел. Программа будет считывать числа, пока не будет введено число 0, и затем вычислять среднее арифметическое чисел, кратных 3.

program AverageMultipleOfThree;
var
  num, sum, count: integer;
  average: real;
begin
  sum := 0;
  count := 0;
  
  repeat
    write('Введите число (0 для завершения): ');
    readln(num);
    
    if (num <> 0) and (num mod 3 = 0) then
    begin
      sum := sum + num;
      count := count + 1;
    end;
  until num = 0;
  
  if count > 0 then
  begin
    average := sum / count;
    writeln('Среднее арифметическое чисел, кратных 3: ', average:0:2);
  end
  else
    writeln('В последовательности нет чисел, кратных 3.');
end.

Программа начинает с инициализации переменных `sum` и `count` нулевыми значениями. Затем она входит в цикл `repeat...until`, который будет выполняться до тех пор, пока не будет введено число 0. Внутри цикла программа считывает число и проверяет, является ли оно кратным 3. Если число не равно 0 и кратно 3, то оно добавляется к сумме `sum` и увеличивает счетчик `count` на 1.

После завершения цикла программа проверяет значение счетчика `count`. Если оно больше 0, то программа вычисляет среднее арифметическое чисел, кратных 3, путем деления суммы на количество чисел. Результат выводится на экран с помощью процедуры `writeln`. Если значение счетчика `count` равно 0, то программа выводит сообщение о том, что в последовательности нет чисел, кратных 3.

Пример работы программы

Введите число (0 для завершения): 5
Введите число (0 для завершения): 9
Введите число (0 для завершения): 12
Введите число (0 для завершения): 6
Введите число (0 для завершения): 0
Среднее арифметическое чисел, кратных 3: 9.00

В этом примере были введены числа 5, 9, 12 и 6. Из них только числа 9 и 12 являются кратными 3. Среднее арифметическое этих чисел равно 9.00.