Помогите срочно очень!!!!1. Написать программу вычисления выражения, значения a и b...

Question

Помогите срочно очень!!!!

1. Написать программу вычисления выражения, значения a и b вводятся с клавиатуры.

D=a+b делёное 2ab

2. Введите числа в переменные a, b и c и напишите программу, которая меняет местами значения переменных по следующей схеме: чтобы в переменной а оказалось первоначальное значение переменной с, в переменной b – значение а, в переменной с – значение b.

Answer 1

Var a,b,D: real; 
 begin 
 write('Введите a: '); 
 readln(a); 
write('Введите b: '); 
 readln(b); 
 D:=(a+b)/(2*a*b); 
 writeln(D);
end.