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

Question

Татиана

24 мая, 07:44

+3

Ответы (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.