Склавиатуры вводится целое число n, найти произведение всех цифр этого числа, а также количество цифр больше 6

Uses crt; var n,a,k,s: integer; begin readln(n); a: =n; repeat; a: =n mod 10; s: =s+a; n: =n div 10; if a> 6 then inc(k); until a=0; writeln(s); writeln(k); end.

Пример реализации в vba  excel sub poisk() s1 = cells(3, 6) s2 = cells(4, 2) b = mid(s1, 1, 1) l1 = len(s1) n = 0 l2 = len(s2) for i = 1 to l2    a = mid(s2, i, 1)    if a = b then        ss = mid(s2, i, l1)        if ss = s1 then            n = i              exit for        end if    end if next i cells(3, 10) = n end sub

Однобайтовый формат это восьмиразрядная сетка. ну, потому что 1 байт - 8 бит. а 1 бит - 1 разряд переведем число 86 в двоичную систему счисления и получим: 01010110теперь число -68: 01000100 а сейчас самое интересное - нужно прицепить минус. сразу в дополнительном коде мы не представим число. сначала нужно перевести его в обратный. для этого нужно просто заменить все нули на единицы, а единицы на нули: 01000100 = 10111011 вот теперь это число можно представить в дополнительном коде. нужно всего лишь прибавить в конце единицу (прибавить именно операцией сложения, а не просто дописать): 10111011               +               1 10111100 ответ: 86: 01010110 -68:   10111100