//PascalABC.NET 3.4.2
begin
var ar := arrrandom(20, 100, 1000);
ar.Println.Take(10).Sum.Println;
ar.TakeLast(10).Sum.Println;
end.
X = 4
y = 132
t = x mod y = 4 mod 132 = 4
x = x+t+15 = 4+4+15 = 23
y = y div x = 132 div 23 = 5
t = t+y = 4+5 = 9
Var
ch,otv,perv,last:Integer;
begin
WriteLn('Введите число');
readln(ch);
last:=ch mod 100;
ch:=ch div 100;
perv:= ch div 10;
ch:=ch div 10;
otv := perv*1000+4*100+last;
WriteLn('Ответ: ',otv)
end.
пж как лучший
Всего 32 набора.
Решил в лоб, написав простейшую программку.
См. приложения.
Лист Excel защищен без пароля, чтобы случайно не повредить формулы.
Снимаете пароль, копируете логические элементы, получаете ответ.