Var a,b,c,sum:integer;
begin
readln(a,b);
sum:=0; inc(a); c:=0;
repeat
sum:=sum+b;
inc(c);
until c=a;
sum:=sum-b;
writeln(sum);
end.
I изменяется от 23 до 4 с шагом -1.
1110₂ + Х₂ = 111001₂
X₂ = 111001₂ - 1110₂
X₂ = 101011₂
Поскольку 4 = 2², достаточно заменить каждую пару двоичных цифр на одну четверичную. Замену ведем справа налево.
Х₄ = (10)(10)(11)₂ = 223₄
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(10,-99,99); a.Println
end.
<u><em>Тестовое решение</em></u>
-12 -89 55 66 41 -31 17 -25 -34 -71