Органы чувств ..........................!!!!!!!!
Проверено в PascalABC.NET
Всё хорошо работает(Скриншот):
<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>
Склероз мучает, но тем не менее 3 информационных процесса я вспомню - хранение, передача, обработка информации. Слегка подумав можно понять что все 3 подходят в определенных условиях, но если случайно так удастся вспомнить еще какие нить информационные процессы, то я уверен найдутся условия при которых съемка фильма однозначно задействует их все
Обьект, природный для многих целей, выполняющий разнообразные функции, называют универсальным.