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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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<C then B:=B*3

   else C:=C*3

   End

else

   Begin

   if B>C then B:=B/3

   else C:=C/3;

   if A<C then A:=A*3

   else C:=C*3

   End;

WriteLn;

WriteLn(‘A = ‘,A);

WriteLn(‘B = ‘,B);

WriteLn(‘C = ‘,C);

End.