Pascal. даны три переменные вещественного типа: a, b, c. если их значения упо- по возрастанию или убыванию, то удвоить их; в противном слу- чае заменить значение каждой переменной на противоположное. вывести новые значения переменных a, b, c.
begin Write('Введите через пробел три числа -> '); Readln(a, b, c); if ((a > b) and (b > c)) or ((a < b) and (b < c)) then begin a := 2 * a; b := 2 * b; c := 2 * c end else begin a := -a; b := -b; c := -c end; writeln('Новые значения чисел: ', a, ', ', b, ', ', c) end.
Тестовое решение:
Введите через пробел три числа -> 18 5 -3 Новые значения чисел: 36, 10, -6
Введите через пробел три числа -> -6 0 5 Новые значения чисел: -12, 0, 10
Введите через пробел три числа -> 11 20.7 4.9 Новые значения чисел: -11, -20.7, -4.9
a, b, c: real;
begin
Write('Введите через пробел три числа -> ');
Readln(a, b, c);
if ((a > b) and (b > c)) or ((a < b) and (b < c)) then
begin a := 2 * a; b := 2 * b; c := 2 * c end
else
begin a := -a; b := -b; c := -c end;
writeln('Новые значения чисел: ', a, ', ', b, ', ', c)
end.
Тестовое решение:
Введите через пробел три числа -> 18 5 -3
Новые значения чисел: 36, 10, -6
Введите через пробел три числа -> -6 0 5
Новые значения чисел: -12, 0, 10
Введите через пробел три числа -> 11 20.7 4.9
Новые значения чисел: -11, -20.7, -4.9