Вот совсем не понимаю что поставить, помогите кто знает как : Зависимость задана...

Question

Вот совсем не понимаю что поставить, помогите кто знает как : Зависимость задана функцией y(a,b), в которой одно из выражений y1 = (a+b)*(a-b), y2 = (a*b) является числителем, а другое- знаменателем. В знаменатель становится то из выражений, значение которого больше при введенных значениях. Необходимо написать программу для любых a и b, вводимых с клавиатуры, учесть вариант отсутствия решений. Пояснение: если y1 > y2 выражение принимает вид y = y1/y2, если y2>y1 - выражение принимает вид y = y2/y1. То есть результат всегда больше или равен 1.

Comments

А на каком языке?

---

На pascal

---

Если бы не паскаль, я бы сделал

---

А хотя ладно, через 3 минуты дам решение

Answer 1

Ответ:

var

a:integer;

b:integer;

y1:integer;

y2:integer;

begin

 read(a,b);

 y1:=(a+b)*(a-b);

 y2:=a*b;

 if (y1>y2) then writeln((y1/y2):2)

 else if (y2>y1) then writeln((y2/y1):2)

 else writeln('Они равны');

end.

Объяснение:

---