2) х/11=22/1
х=22*11=242
х/10=21/1
х=21*10=210
242-210=32
3)из 12 в 8, потом из 8 в 5 , потом из 5 выливаем обратно в 12, затем из 8 выливаем 3 оставшихся пинта от предыдущего перелива в 5, снова набираем 8 и доливаем из него в 5
и в итоге в 8 останется 6 пинт
4)
1 Кбит = 1024 бит
0.125 Кбит * 1024 = 128 бит
Uses crt;
var mas: array [1..1000] of real;
x,k,o,p:integer;
begin
write('K='); readln(K);
o:=0; p:=0;
for x:=1 to K do
begin
write('mas[',x,']:');
readln(mas[x]);
if mas[x]<0 then inc(o);
if mas[x]>0 then inc(p);
end;
writeln;
writeln('Отрицательных элементов: ',o);
writeln('Положительных элементов: ',p);
end.