Question

дано значення дійсних величин a, b, c. Подвоїти ці значення, якщо a > b > c, і замвнити їх абсолютним значенням, якщо це не так

Answer 1

Відповідь:

Пояснення:

Answer 2

Ответ:

Если a > b > c, то удвоение значений a, b и c можно выполнить следующим образом:

a = 2a

b = 2b

c = 2*c

Если же условие a > b > c не выполнено, то необходимо заменить значения на их абсолютное значение:

a = abs(a)

b = abs(b)

c = abs(c)

Код на Pascal:

program DoubleOrAbsoluteValues;

var

 a, b, c: real;

begin

 // чтение входных значений

 write('Введите a: ');

 readln(a);

 write('Введите b: ');

 readln(b);

 write('Введите c: ');

 readln(c);

 // проверка условия и выполнение операций

 if (a > b) and (b > c) then

 begin

   a := 2 * a;

   b := 2 * b;

   c := 2 * c;

 end

 else

 begin

   a := abs(a);

   b := abs(b);

   c := abs(c);

 end;

 // вывод результатов

 writeln('a = ', a:0:2);

 writeln('b = ', b:0:2);

 writeln('c = ', c:0:2);

 // задержка экрана

 readln;

end.