256/8=32 (остаток 0)32/8=4 (остаток 0)4/8=0 (остаток 4)Записываем остатки в обратном порядке и получаем ответ 400
Var
a: array[1..15] of real;
i: integer;
b, c:real;
Begin
for i:=1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if (((i mod 3)=0) and ((a[i] mod 5)=0) then
Begin
b:=b+a[i];
c:=c+1;
End;
write(b/c);
End.
10 символов
32 = 2^5 => 5 бит/символ
10 * 5 = 50 бит