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

Question

Информатика

Акутий

16 мая, 09:10

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

+3

Ответы (1)

Знаете ответ на вопрос?

Юлгиз · 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.