Даны действительные числа а, b, с. Удвоить эти числа, если а ≥ b ≥ с, и заменить их...

Question

Даны действительные числа а, b, с. Удвоить эти числа, если а ≥ b
≥ с, и заменить их абсолютными
значениями, если это не так.

Answer 1

Var a,b,c:real;
Begin
write('Введите a,b,c: ');readln(a,b,c);
if (a>=b)and(b>=c) then
Begin
a:=a*2;
b:=b*2;
c:=c*2;
End
else
Begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
End;
writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
readln;
End.