<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>
Растровая графика (от лат. rastrum - грабли, то есть если разрыхлить землю граблями получится "эффект пикселей" по горизонтали и вертикали)
Магистраль (системная шина) – это набор электронных линий, связывающих центральный процессор, основную память и периферийные устройства воедино относительно передачи данных, служебных сигналов и адресации памяти.
var i:byte;
begin
i:=1;
while i<=5 do
begin
writeln('Imya');
i:=i+1;
end;
end.