Вопрос от посетителя
Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное.
нужно решение и блок схема.
Отвечает Илюха:
var a,b,c:real;
Begin
read(a,b,c);
if (a>b) and (b>c) then begin
a:=a*2;
b:=b*2;
c:=c*2;
end
else begin
a:=-a;
b:=-b;
c:=-c;
end;
writeln(a,b,c);
End.