Вычислите х, для которых верно равенство: 1010х=1010

Question

Информатика: Вычислите х, для которых верно равенство: 1010х=1010

новичок20030 · Accepted Answer

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию! begin   var (a,b,c):=ReadReal3( Введите три числа: );   if b.Between(a,c) then (a,b,c):=(2*a,2*b,2*c);   if (a 0) or (b 0) or (c 0) then (a,b,c):=(Abs(a),Abs(b),Abs(c));   Writeln( a= ,a, , b= ,b, , c= ,c) end. Пример Введите три числа: 3.6 -5.2 8 a=3.6, b=5.2, c=8 Первый оператор читает с клавиатуры три вещественных числа и помещает их в переменные a,b,c. Второй оператор проверяет, находится...

MOGZ ответил