Решите, ! ниже записана программа. получив на вход число 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 мне надо решение.

Алгоритм проходит в цикле со счетчиком 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 

Рас­смот­рим цикл, число шагов ко­то­ро­го за­ви­сит от из­ме­не­ния пе­ре­мен­ной 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.

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.