1.12(10)=1100(2) 11.118(10)=1110110(2) 21.111(10)=11010010100(2)
2.15(10)=1111(2) 12.205(10)=11001101(2) 22.222(10)=11011110(2)
3.25(10)=11001(2) 13.394(10)=110001010(2) 23.333(10)=101001101(2)
4.36(10)=100100(2) 14.429(10)=110101101(2) 24.444(10)=110111100(2)
5.47(10)=101111(2) 15.533(10)=1000010101(2) 25.555(10)=1000101011(2)
6.58(10)=111010(2) 16.671(10)=1010011111(2) 26.666(10)=1010011010(2)
7.69(10)=1000101(2) 17.786(10)=1100010010(2) 27.777(10)=1010011010(2)
8.71(10)=1000111(2) 18.892(10)=1101111100(2) 28.888(10)=1010011010(2)
9.82(10)=1010010(2) 19.900(10)=1110000100(2) 29.999(10)=1111100111(2)
10.91(10)=1011011(2) 20.1684(10)=11010010100(2) 30.254(10)=11111110(2)
function CycleFraction(a, b: integer): string;
begin
Result := (a div b).ToString;
a := a mod b;
if a = 0 then exit;
Result += ','; // разделитель
var k := Result.Length + 1;
var ost := new SortedList<integer, integer>;
ost.Add(a, k);
while True do
begin
a *= 10;
Result += (a div b).ToString;
a := a mod b;
if ost.ContainsKey(a) then
begin
var p := ost.Get(a);
Result := Result?[:p] + (a <> 0 ? '(' + Result?[p:] + ')' : ''.ToString);
exit
end
else
begin
k += 1;
ost.Add(a, k);
end
end
end;
begin
var (a, b) := ReadInteger2('Введите числитель и знаменатель:');
CycleFraction(a, b).Println;
end.
// Внимание! Если программа не работает, обновите версию!
type
tL=List<integer>;
function Avg(L:tL):=L.Average;
function Cont(L:tL; e:integer):=L.Contains(e);
function Occurs(L:tL; e:integer):=L.Where(t->t=e).Count;
begin
var MyList:=Lst(3,8,12,5,16,9,5,-2,7,0,5,-1);
MyList.Println;
Writeln('Среднее равно ',Avg(MyList):0:3);
var k:=ReadInteger('Введите элемент для поиска:');
Writeln('Есть ли такой элемент в списке? ',Cont(MyList,k));
Writeln('Количество таких элементов равно ',Occurs(MyList,k))
end.
Пример
3 8 12 5 16 9 5 -2 7 0 5 -1
Среднее равно 5.583
Введите элемент для поиска: 5
Есть ли такой элемент в списке? True
Количество таких элементов равно 3