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

Question

Веденя

4 ноября, 17:29

+4

Ответы (1)

Знаете ответ на вопрос?

Максима · Answer 1

Var

x1, x2:real;

begin

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

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

else Writeln ((x1+x2) / 2)

end.