Введите число >>> 678
Число 678 на один больше числа 677 и на один меньше числа 679
Вычисли соседей введенного
пользователем числа и выведи
строку по образцу.​

составим таблицу:

                        | молоко  | лимонад | квас | вода

бутылка |       -          |              +          |      -      |      -

стакан    |          -          |            -           |      -      |      +

кувшин  |          +          |            -            |      -     |      -

банка      |          -            |            -           |      +    |        -

program xxx;

  var n, c, d, e, s : integer;

begin

    write('введите число');

    readln(n);

    c: = n div 100;

    d: =(n div 10) mod 10;

    e: = n mod 10;

    s: = c + d + e;

    writeln('сумма чисел =', s);

    readln

end.

минимально возможное число бит для десятичных цифр равно 4,значит инф объем = 150симв * 4бит =600 бит,

ответ: 600 бит

Var a,b,c,t: integer; begin   read(a,b,c);   writeln('a': 4,'b': 4,'c': 4);   writeln(a: 4,b: 4,c: 4);   t: =a;   writeln(a: 4,b: 4,c: 4);   a: =c;   writeln(a: 4,b: 4,c: 4);   c: =b;   writeln(a: 4,b: 4,c: 4);   b: =t;   writeln(a: 4,b: 4,c: 4); end.