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