Решите, ! ниже записана программа. получив на вход число x, эта программа печатает два числа, l и m. укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 28. var x, l, m: integer; begin readln(x); l: =0; m: =0; while x > 0 do begin l: =l+1; if m < x then begin m: = m + (x mod 10) * 2; end; x: = x div 10; end; writeln(l); write(m); end. ответ: 177 мне надо решение.

210

368

Посмотреть ответы 3

Ответы на вопрос:

sonya0013

Информатика

4,7(35 оценок)

Алгоритм проходит в цикле со счетчиком l по каждому разряду введенного числа х, начиная с младших. очередная цифра выделяется, удаваивается и полученные значения суммируются в переменной м до тех пор, пока составленное из оставшихся цифр число х превышает m. по условию l=3, следовательно число х - трехзначное. 28 - это сумма удвоений, следовательно, она получена путем сложения цифр, которые в сумме 28/2, т.е. 14. исходное трехзначное число в общем виде может быть записано, как 100*a+10*b+c, тогда a+b+c=14, где b и c - целые числа от 0 до 9, а - целое число от 1 до 9. минимальное число, в сумме 14, это 149. но на первом шаге м получится равным 18 (9*2), и на следующем шаге оставшиеся от 149 цифры 1 и 4 дадут число 14, которое меньше м, что прекратит накопление суммы в м. таким же образом не подходит число 158. для числа 167 в первом проходе (число 7) получим м=14, во втором (число 6) м=14+12=26. а на третьем проходе мы получаем число 1 и накопления не происходит. то же будет и с числами 176, 185, 194. следовательно, старший разряд числа не должен участвовать в формировании суммы и условие надо поменять на b+c=14. но 14=9+5=8+6=7+7. минимальные трехзначные числа, составленные их этих цифр. это 159, 168 и 177. число 159 не подходит (2*9=18 > 15), 168 тоже не подходит (2*8=16 = 16) - с обоими накопление прекращается после первой цифры. число 177 дает m=14, затем 17> 14 и к м добавляется еще 14, давая в сумме 28. далее 1< 28, накопление прекращено, результат получен. итак, х=177

Vanpal03

Информатика

4,5(20 оценок)

Рассмотрим цикл, число шагов которого зависит от изменения переменной x: while x > 0 do begin x: = x div 10; end; т. к. оператор div оставляет только целую часть от деления, то при делении на 10 это равносильно отсечению последней цифры. из приведенного цикла видно, что на каждом шаге от десятичной записи x отсекается последняя цифра до тех пор, пока все цифры не будут отсечены, то есть x не станет равно 0; поэтому цикл выполняется столько раз, сколько цифр в десятичной записи введенного числа, при этом число l столько же раз увеличивается на 1. следовательно, конечное значение l совпадает с числом цифр в x. для того, чтобы l стало l=3, x должно быть трёхзначным. теперь рассмотрим оператор изменения m: if m < x then begin m: = m + (x mod 10) * 2; end; оператор mod оставляет только остаток от деления, при делении на 10 это последняя цифра x. таким образом м есть сумма удвоенных цифр числа x, которые принимают чётные значения от 0 до 18. для получения наименьшего x положим первую цифру x(1) = 1, она не даст вклад на третьем шаге цикла, потому что не будет выполняться условие m < x, а для того, чтобы сумма удвоенных цифр была равна 28, вторая и треться цифры должны быть больше нуля. сделаем цифру x(3) максимально воможной, чтобы уменьшить вторую цифру и достичь минимума: x(3) = 9, тогда 9 * 2 = 18, а x(2) = (28 - 18) / 2 = 5, но тогда не выполняется условие m < x (18 > 15) и значение 28 не достигнется. x(3) = 8, тогда 8 * 2 = 16, а x(2) = (28 - 16) / 2 = 6, условие m < x не выполняется (16 = 16) и значение 28 не достигнется. x(3) = 7, тогда 7 * 2 = 14, а x(2) = (28 - 14) / 2 = 7, m < x (14 < 17) и значение 28 достигaется. окончательно находим наименьшее число x: 177.

Гузеля2006

Информатика

4,4(70 оценок)

Var r,h: integer; v1,v2: real; begin writeln('ввод радиуса: '); readln(r); writeln('ввод высоты цилиндра: '); readln(h); v1: =2*pi*r*h; v2: =4/3*pi*(r*r); if v1> v2 then write('объем цилиндра больше') else write('объем шара больше'); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.