Помогите пожалуйста написать прогу и, пожалуйста, объясните принцип! Определить, равна ли...

Question

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

Comments

Если пользователь введет не в виде 0.xxxxxyyyyyz, а 255.xxxxxyyyyyz

---

Что тогда?

---

Все нормально отработает. Вы что, не видите пример?

---

Я не разбираюсь в Pascal

---

Но жирный шрифт прочитать-то можете?

---

Там число -542.6327288323

---

Окей

---

Не только не с нуля ничинается, а еще и со знаком

---

Спасибо

---

Пожалуйста

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

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