Question

Напишите программу,которая находит среднее арифметическое числа и выясняет чётное ли оно

Answer 1

Ответ:

program arith_mean_numb;

var k:integer;

x,y,z:real;

armenum:real;

x1:string;

label 10,20,30;

 begin

 30:  Writeln ('введите первое положительное целое число');

 

  10:  Read(x);

  if frac(x)<>0 then

    begin

Writeln ('Вы ввели дробное число, введите целое число еще раз');

      goto 10;

     

   end;

     Writeln ('введите второе положительное целое число');

   20:Read(y);

      if frac(y)<>0 then

    begin

Writeln ('Вы ввели дробное число, введите целое число еще раз');

      goto 20;

      end;

armenum:=(x+y)/2;

 Write('Среднее арифметическое: ',armenum);

 z:=armenum/2;

 if frac (z) <>0 then Writeln (' дробное нечетное число')

 else Writeln (' четно число');

 Writeln ('Будете еще находить среднее арифметическое число и проверят его на четность, нечетность 1 - да, любое число - нет');

 Read (k);

 if k=1 then goto 30;

end.

Объяснение:

Answer 2

Конечно, вот программа на языке Python, которая находит среднее арифметическое числа и проверяет, является ли оно четным:

pythonCopy code
# Ввод числа от пользователя
num = int(input("Введите число: "))

# Ввод второго числа
num2 = int(input("Введите второе число: "))

# Вычисление среднего арифметического
average = (num + num2) / 2

# Проверка, является ли среднее арифметическое четным
if average % 2 == 0:
    print(f"Среднее арифметическое чисел {num} и {num2} равно {average} и является четным.")
else:
    print(f"Среднее арифметическое чисел {num} и {num2} равно {average} и не является четным.")

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