Даны 3 числа. Сравните эти числа. Большее число уменьшить в 3 раза, а меньшее число увеличить в 3 раза.

Question

Информатика

Ареф

13 февраля, 02:31

Даны 3 числа. Сравните эти числа. Большее число уменьшить в 3 раза, а меньшее число увеличить в 3 раза.

+5

Ответы (1)

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

Матяха · Answer 1

Var

A, B, C:real;

Begin

Write ('A = ') ; ReadLn (A) ;

Write ('B = ') ; ReadLn (B) ;

Write ('C = ') ; ReadLn (C) ;

if A>B then

Begin

if A>C then A:=A/3

else C:=C/3;

if B
else C:=C*3

End

else

Begin

if B>C then B:=B/3

else C:=C/3;

if A
else C:=C*3

End;

WriteLn;

WriteLn ('A = ', A) ;

WriteLn ('B = ', B) ;

WriteLn ('C = ', C) ;

End.