2) потому что 8 бит посчитали нормальным числом как минимальный объём, вмещающий 256 штук чисел например от 0 до 127 или от -1 до -128 при сильном желании который можно поделить на 2, потому что оно ещё и чётное. В это число влезет алфавит двух или трёх языков + символы, то есть кириллица и латиница. А если нужно больше можно использовать больше.
Так же в это число влезет дробное число больших размеров за счёт методов разложения числа в экспоненциальную запись.
// Перевод дюймов в см
const d_v_sm = 2.54; // Дюймов в 1 см
var x:real;
begin
Write('Введите кол-во дюймов: ');
Readln(x);
Writeln(x,' дюймов = ',x/d_v_sm,' сантиметров');
end.<span>
</span>
var a,b,c,e,k:integer;
begin
k:=9;//вставить любоое число
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then b:=b+a;
if a<0 then c:=c+1;
if (a mod k = 0)and(a<>0) then
if e=0 then e:=a else e:=e*a;
end;
writeln('сумма положительных элементов = ',b);
writeln('кол-во отрицательных элементов = ',c);
writeln('произведение элементов, кратных ',k,' равнo ',e);
end.
если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);