Question

Даны действительные числа a b c удвоить эти числа если (a меньше b меньше c) и заменить из абсолютными значениями , если это так

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.