<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := Frac(Abs(ReadReal('Введите исходное число:'))).ToString;
var k := ReadInteger('Введите значение k:');
var (s1, s2) := (x[3:3 + k], x[3 + k:3 + 2 * k]);
if s1.Select(t -> t.ToDigit).Sum = s2.Select(t -> t.ToDigit).Sum then
Println('Суммы равны')
else
Println('Суммы не равны')
end.
<h3>Введите исходное число: -542.6327288323</h3><h3>Введите значение k: 3</h3><h3>Суммы не равны </h3>
Выведет 128;
1 2 4 8 16 32 64 128
766439бит=0.0912474мб
1.65гб=1689.6мб
Локальная шина (local bus) — функционально специализированный вид шины в IBM PC для связи процессора с отдельными видами периферийных устройств (контроллеров накопителей, видеоадаптеров и т.п.). Пропускная способность различных локальных шин может существенно отличаться.