Таблица в прилагаемом изображении.
Var a,s,i,k: integer;
begin
for i:=1 to 5 do
begin
write ('Введите число: ');
readln (a);
if a mod 6 = 0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln ('Cумма чисел, кратных 6, равна: ',s);
writeln ('Количество чисел, кратных 6, равно: ',k);
if (s<>0) and (s mod 4 = 0) then writeln ('Cумма чисел, кратных 6, делится на 4 нацело');
if (s<>0) and (s mod 4 <> 0) then writeln ('Cумма чисел, кратных 6, не делится на 4 нацело')
end.
Получше сфотай а так решу
1. V = K * I, где
V - объем;
K - размер сообщения;
I - количество бит на символ.
V = K * I.
V = 46 * 16 = 736 бит (не считая точку в конце предложения, если считать: 47 * 16 = 752 бит).
2. V = 4 кбайт.
K = 4096.
V, N - ?
N = 2^i, где
N - мощность алфавита.
V = K * I.
I = V/K = (4*2^13)/4096 = 2^15/2^12 = 2^3 = 8 бит.
N = 2^i.
N = 2^8.
N = 256 символов.
Ответ: 8 бит, 256 символов.