Сколько битов содержится в 1/2 килобайта?

1/2 килобайта это 512 байт 1 килобайт = 1024 байт

1) var a, b, c: integer; sr: real; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); sr: =(a+b+c)/3; writeln('среднее арифметическое = ',sr); end. пример: a = 5 b = 2 c = 8 среднее арифметическое = 5 2) var a, b, c, s : integer;   begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); s: =0; if a mod 2 = 0 then s: =s+a; if b mod 2 = 0 then s: =s+b; if c mod 2 = 0 then s: =s+c; writeln('сумма четных чисел = ',s); end. пример: a = 8 b = 5 c = 2 сумма четных чисел = 10 3) var a, b, c, max, min : integer;   begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); if a> b then max: =a else max: =b; if c> max then max: =c; if a< b then min: =a else min: =b; if c< min then min: =c; writeln('max = ',max,' min = ',min,'   среднее = ',(max+min)/2); end. пример: a = 5 b = 2 c = 8 max = 8 min = 2   среднее = 5

Program factors; var num, sum : word; st : string; j : byte; function fact(a : byte) : word; var res : word; i : byte; begin res: =1; for i: =1 to a do res : = res*i; writeln(a, '! =', res); fact : = res; end; function vl(a : char) : byte; var res : byte; begin val(a, res); vl : = res; end; begin write('введите число: '); readln (num); str(num, st); sum: =0; for j: =1 to length(st) do sum : = sum + fact(vl(st[j])); writeln('сумма факториалов цифр числа равна: ', sum); end. тестовый прогон программы: введите число: 125 1! =1 2! =2 5! =120 сумма факториалов цифр числа равна: 123