Следует четырежды повторить следующую группу действий:
1) закатить в нишу ближайший к ней черный шарик
2) перекатить все шарики в левую часть желоба
3) перекатить все шарики в правую часть ниши
4) перекатить все шарики в правую часть ниши
5) выкатить черный шарик из желоба
<span>роби раз на тиждень шкоди не буде,
делай раз в неделю вреда не будет</span>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var s:=ReadInteger('n=').ToString.JoinIntoString('');
Writeln('Цифр в числе- ',s.Length);
Writeln('Сумма цифр- ',s.Select(d->Integer.Parse(d)).Sum);
Writeln('Последняя цифра- ',s.Last);
Writeln('Первая цифра- ',s.First);
Writeln('Предпоследняя цифра- ',s[s.Length-1]);
var m:=ReadInteger('m=');
Write('Сумма ',m,' последних цифр числа- ');
Writeln(s.Skip(s.Length-m).Select(d->Integer.Parse(d)).Sum);
Write('Цифра 3 в запись числа ');
if Pos('3',s)>0 then Writeln('входит')
else Writeln('не входит');
Writeln('Число в обратном порядке- ',s.Reverse.JoinIntoString(''));
Writeln('Перестановка первой и последней цифр- ',
s.Last+Copy(s,2,s.Length-2)+s.First);
end.
<u><em>Тестовое решение:</em></u>
n= 1063
Цифр в числе- 4
Сумма цифр- 10
Последняя цифра- 3
Первая цифра- 1
Предпоследняя цифра- 6
m= 2
Сумма 2 последних цифр числа- 9
Цифра 3 в запись числа входит
Число в обратном порядке- 3601
Перестановка первой и последней цифр- 3061
Будем считать, что это пятеричная система, где
<span>В=0
Е=1
К=2
Н=3
О=4
Первое слово, которое начнется с буквы О будет ОВВВВ, по-другому — 40000 в пятеричной системе. Чтобы узнать какое оно по счету, надо просто перевести его в десятичную сс.
40000</span>₅=0*5⁰+0*5¹+0*5²+0*5³+4*5⁴=4*625=2500
и, т.к. нумерация началась с 00000, то ответ будет 2501