Нужно решить задачу по информатике: число a и b - катеты одного треугольника, c и d - катеты другого. Определите, являются ли эти треугольники равновеликикими. Программа - Паскаль по шаблону prorram ... Var ... Begin ... If ... Then ...
Program prog; var a,b,c,d: real; begin readln(a,b,c,d); if (a>0) and (b>0) and (c>0) and (d>0) then begin if (a*b = c*d) then writeln('Являются') else writeln('Не являются') end; end.
а нужно a,b,c,d,<0?
Можно
Только >
как будет выглядеть блок схема?