Задать вопрос
29 января, 15:52

Создайте программу вычисления среднего арифметического переменных x1 и x2. При равенстве значений выдать сообщение "Вычислений нет" На языке Pascal.

+3
Ответы (1)
  1. 29 января, 16:39
    0
    Var

    x1, x2:real;

    begin

    Write ('Введите x1, x2: '); Read (x1, x2);

    if x1=x2 then Writeln ('Вычислений нет')

    else Writeln ((x1+x2) / 2)

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Создайте программу вычисления среднего арифметического переменных x1 и x2. При равенстве значений выдать сообщение "Вычислений нет" На ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы