Pascal
//Эта программа корректно работает для двухзнаных чисел
// при a > 100 будет к примеру 125 =>125-(12+5)...
var a,k : integer;
begin
k := 0;
readln (a);
while a > 0 do
begin
a := a - (a div 10 + a mod 10);
k := k +1;
end;<span>
writeln (k);
end.</span>
var
s: string;
i,n: integer;
begin
readln(s);
n:=1;
for i:=1 to length(s) do
if ((s[i]='3') or (s[i]='6') or (s[i]='9')) then
n:=n*(ord(s[i])-48);
write(n);
end.
1) Выбираем двух персонажей
2) Создаем скрипт для каждого из персонажей
3) Для того, чтобы они шли друг к другу, поменять направление для одного (в левую сторону). Изменить стиль вращения.
(А+В)*(неА +В)= А*неА+А*В + В*неА + В*В =В*(А+неА+1) = В
испол. формулы: А*неА=0
А+неА =1
неА*В + не(А+В) = неА*В + неА * неВ = неА*(В+неВ) = неА