profile
Опубликовано 5 лет назад по предмету Информатика от чика100500

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

  1. Ответ
    Ответ дан igroman95
    Program pr; Var a, b:real; Write('Введите A: ') ; Readln(a) ; Write('Введите B: ') ; Readln(b) ; Writeln('Среднее арифметическое: ',(a+b)/2); End.
    1. Ответ
      Ответ дан чика100500
      числа могут быть и дробными
    2. Ответ
      Ответ дан igroman95
      Это учтено. Поэтому a и b переменные вещественного типа, то есть real. Кстати, исправьте последнюю строчку на: Writeln('Среднее арифметическое: ', (a+b)/2:0:2); иначе вывод будет не тот.
Самые новые вопросы