Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное.

нужно решение и блок схема.

Question

Информатика

Ольгуха

2 июня, 03:57

Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное.

нужно решение и блок схема.

+1

Ответы (1)

Знаете ответ?

Радислав · Answer 1

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.