<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>
From random import random
n = int(input("n = "))
a = []
b = []
for i in range(n):
c = int(random() * 50)
a.append(c)
print(a)
s = 0
for i in range(n-1,-1,-1):
s = s+a[i]
b.insert(0,s)
print(b)
Пример:
<span>n = 5
[5, 43, 7, 20, 36]
[111, 106, 63, 56, 36]</span>
225 в десятичной с.с=11100001 в двоичной с.с
Ответ: 4 (единицы).
Вот тебе решение, на уравнения не знаю