Если можете то можно объяснить? укажите минимальное натуральное число, при вводе которого этот алгоритм напечатает число 11. var x, a, b, d: longint; begin readln(x); a : = 0; b : = 10; while x > 0 do begin d : = x mod 7; if d > a then a : = d; if d < b then b : = d; x : = x div
7 end; writeln(a+b) end.

Единорожка024135    1   08.10.2019 12:01    23