Question

Даны действительные числа a,b,c,d. Проверить, выполняется ли условие a < b < c и d не равно a + b. Нужна разветвленная блок схема

Answer 1

Ответ:

Program gt;

var A,B,C:real;

begin

readln(A,B,C);

if(A<B)and(B<C)then A:=B+C else A:=C-B;

writeln(A,' ',B,' ',C);

end.