Операции mod и div можно выполнять только над целыми числами: a) a: =21 div 5=? b) a: = 2 mod 3=? b: = 20 mod 5=? b: = 36.0 mod 6=? c: = 14 div 6.0=? c: = 81 div 0=? d: = 14 mod 0=? d: = 38 div 6=? e: = 5 mod 13 =? e: = 3 div 2=?
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
B:=0
C:=2
E:=3
b) A:=3
B:=0:
D:=6
E:=1
под D под a и C под b деление на ноль невозможно..