<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
Второй оператор проверяет, находится ли второе число (b) между остальными двумя (может и совпадать с одним из них). Если да, то значение каждой переменной удваивается.
Третий оператор проверяет, есть ли среди введенных чисел хоть одно отрицательное. Если есть, значения заменяются их модулями (становятся положительными).
И в конце следует вывод результатов.
254000000 = 254 · 10⁶
254 = 0.254 · 1000 = 0.254 · 10³, тогда
254 · 10⁶ = 0.254 · 10⁶ · 10³ = 0.254 · 10⁹
<h2>Ответ</h2>
0.254 · 10⁹
Прибавь к этим словам по 2 буквы и получи новые слова из 5 букв: --гор,--тон,--гон,--гар,--сар,--унь,--дио,--пех,--лад,--бор,--к
partia69
Бугор, бетон, загон, загар, сахар, окунь, радио, успех,уклад, забор, закон, бекон, фасон, букет, зарок, пирог, затор, табак, кабак, рыбак
Королівство Paint це безмежний простір для можливостей, реалізації власних фантазій та творчості.В ньому фантазії становляться реальністю, а життя знову набувае сенсу та барв.В цьому королівстві править палітра з своїм безмежним набором барв.Слуги короля це прикладні функції пензлик, лупа, олівець, тощо.З цим казковим світом нас знайомлять ще з малку, воно відкриває в нас митців, та допомагає нам всесторонньо розвинутись.
P.S указывала бы обём текста
