Var N, a1, a2, a3, min, max: integer; begin readln(N); N := abs(N); a1 := N mod 10; //в а1 хранится разряд единиц введённого числа N := N div 10; //"стираем" в N последнюю цифру a2 := N mod 10; //в а2 хранится рязряд десятков числа N N := N div 10; a3 := N mod 10; //в а3 хранится рязряд сотен числа N // //поиск минимума из цифр. в переменной мин //хранится наименьшее число на данном шаге. min := a1; if a2 < min then min := a2; if a3 < min then min := a3; // //поиск максимума max := a1; if a2 > max then max := a2; if a3 > max then max := a3; // writeln('min - ', min, ' max - ', max); end.
Ход решения: Делим число на 2 и выписываем остатки 19 = 9·2 + 1 9 = 4·2 + 1 4 = 2·2 + 0 2 = 1·2 + 0 Последний множитель перед 2 равный 1 записываем первым. Затем записываем найденные остатки в обратном порядке. Получаем: 10011
Для числа [86]
Ход решения: Делим число на 2 и выписываем остатки 86 = 43·2 + 0 43 = 21·2 + 1 21 = 10·2 + 1 10 = 5·2 + 0 5 = 2·2 + 1 2 = 1·2 + 0 Последний множитель перед 2 равный 1 записываем первым. Затем записываем найденные остатки в обратном порядке. Получаем: 1010110
Для числа [177]
Ход решения: Делим число на 2 и выписываем остатки 177 = 88·2 + 1 88 = 44·2 + 0 44 = 22·2 + 0 22 = 11·2 + 0 11 = 5·2 + 1 5 = 2·2 + 1 2 = 1·2 + 0 Последний множитель перед 2 равный 1 записываем первым. Затем записываем найденные остатки в обратном порядке. Получаем: 10110001
Для числа [345]
Ход решения: Делим число на 2 и выписываем остатки 345 = 172·2 + 1 172 = 86·2 + 0 86 = 43·2 + 0 43 = 21·2 + 1 21 = 10·2 + 1 10 = 5·2 + 0 5 = 2·2 + 1 2 = 1·2 + 0 Последний множитель перед 2 равный 1 записываем первым. Затем записываем найденные остатки в обратном порядке. Получаем: 101011001
N, a1, a2, a3, min, max: integer;
begin
readln(N);
N := abs(N);
a1 := N mod 10; //в а1 хранится разряд единиц введённого числа
N := N div 10; //"стираем" в N последнюю цифру
a2 := N mod 10; //в а2 хранится рязряд десятков числа N
N := N div 10;
a3 := N mod 10; //в а3 хранится рязряд сотен числа N
//
//поиск минимума из цифр. в переменной мин
//хранится наименьшее число на данном шаге.
min := a1;
if a2 < min then
min := a2;
if a3 < min then
min := a3;
//
//поиск максимума
max := a1;
if a2 > max then
max := a2;
if a3 > max then
max := a3;
//
writeln('min - ', min, ' max - ', max);
end.