Процесс выполнения операторов присваивания:

a:=2;g:=102;z:=a∗g

При выполнении оператора a:=2 в ячейку оперативной памяти компьютера с именем a заносится значение
; при выполнении оператора g:=102 в ячейку оперативной памяти компьютера с именем g заносится значение
. При выполнении оператора z:=a∗g значения ячеек оперативной памяти с именами a и g переносятся в процессор, где над ними выполняется операция умножения. Полученный результат заносится в ячейку оперативной памяти с именем.

1 )В кодовых таблицах КОИ-8 и Windows сначала расположены прописные русские буквы, а затем строчные. Русские прописные буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 223. Русские буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 225.

2)

film

face

fine

fire

3)3

4) i = 1 байт

k = «Речь вести - не лапти плести.»

Найти:

V - ?

Решение

i = 1 байт = 8 бит

В предложении «Речь вести - не лапти плести.»- 29 символов

V = k * i (формула нахождение объёма текстовой информации)

Где, к – количество символов в тексте

V = 29 * 8 = 232 бит = 29 байт

ответ: текст содержит 29 байт информации

5 )Слово занимает 14 байт =14*8=112 бит памяти. Решение: Переведем Кб в байты: 0, 25 Кб * 1024 =256 байт. Так как текст занимает объем 256 байт, а каждый символ – 1 байт, то в тексте 256 символов.

6)31 управляющие

7)4

8)576 битов тоесть :576/8=72 бита

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами