125,75=1111101<span>.11(2)
</span>125,75=175.6(8)
125,75=7<span>D.C(16)
</span>453,125=111000101.001(2)
453,125=705.1(8)
453,125=1C<span>5.2(16)</span>
В счетчиках можно вместо 5 указать константу n и где вывод проверку если равен n запятую не печатаем
См. фото.......................................................
Этот набор
1 2 4 8 16 32
примеры
63 = 32 + 16 + 8 + 4 + 2 + 1
57 = 32 + 16 + 8 + 1
1 = 1
2 = 2
3 = 2+ 1
19 = 16 + 2 + 1
26 = 16 + 8 + 2
Напишу сразу код, немного прокемментировал, но если взялись связать свою жизнь с информатикой, то нужно изучать это всё.
varF:array[0..16] of integer;i,i2:integer;schet:integer;
begin
schet:=0;
//заполнение массива согласно данным условиям
for i:=0 to 9 dof[i]:=1;
for i:=11 to 13 dof[i]:=1;
//создадим два отрицательных массива
f[10]:=-1;
F[14]:=-1;
//заполним вручную недостающие
f[15]:=1;
f[16]:=1;
for i:=0 to high(f) do begin //начинаем цикл
if f[i]<0 then begin //проверяем первое условик
if schet=0 then begin
inc(schet);
for i2:=0 to i do
f[i2]:=0;
end else
if schet=1 then //второе условие
for i2:=i to high(f) do
f[i2]:=0; end;<span>end;
//end for</span>