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

≥ с, и заменить их абсолютными

значениями, если это не так.

Question

Информатика

Тоша

22 августа, 07:33

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

≥ с, и заменить их абсолютными

значениями, если это не так.

+5

Ответы (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.

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

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

≥ с, и заменить их абсолютными

значениями, если это не так.