Ответ № 3 - 640 бит.
В указанной строке 40 символов (вместе с точкой).
40*2 байта = 80 байт.
1 байт = 8 бит.
80*8=640 бит.
Var
a, b, i, k: integer;
begin
readln(a, b);
for i := a to b do
if i mod (7 * 2) = 0 then
begin
k := k + 1;
writeln(i);
end;
writeln('K = ', k);
end.
1) переносим запятую на три знака вправо: 12.89
на три знака влево (степень -3) 0.0019854
на пять знаков вправо (степень +5) 3250120
2)1998.012=1998.012*10^0=19980.12*10^(-1)=199801.2*10^(-2)=1998012*10^(-3)=199.8012^10^(-1)
3) 652.1324=6.521324*10^(-2)
0.0005987=5.987*10^(-4)
528439=5.28439*10^(5)
Var
c:array[1..1000,1..1000] of integer;
i,j,n,m,sum,aver:longint;
begin
read(n,m);
for i:=1 to n do
for j:=1 to m do
begin
read(c[i,j]);
sum:=sum+c[i,k];
end;
aver:=sum div (n*m);
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
if c[i,j]<aver then c[i,j]:=0 else c[i,j]:=255;
write(c[i,j],' ');
end;
end;
end.
Проверьте на синтаксические ошибки. В данный момент не могу сам это скомпилировать