Question

Помогите пожалуйста написать прогу и, пожалуйста, объясните принцип! Определить, равна ли сумма первых k цифр дробной части заданного положительного вещественного числа сумме n следующих цифр.

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

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.

Введите исходное число: -542.6327288323

Введите значение k: 3

Суммы не равны