Вокруг кошки стоят 7 шоколадных мышек, пронумерованных числами от 1 до 7 подряд по часовой стрелке. - id416723020220623 от BlockStriker1 23.06.2022 18:33

Question

Информатика: Вокруг кошки стоят 7 шоколадных мышек, пронумерованных числами от 1 до 7 подряд по часовой стрелке. причем мышка с номером 7 – самая большая. кошка собирается их все съесть, придерживаясь такого правила: сначала она отсчитывает 7-ю мышку по часовой стрелке, начиная с какой-то, и съедает ее, затем начинает считать по часовой стрелке мышек дальше и 7-ю опять съедает и так далее. с какой мышки ей нужно начать, чтобы съесть самую большую мышь последней? пример: пусть по кругу стоят 3 мышки, и кошка

BlockStriker1 · Accepted Answer

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
var dig:=['0'..'9'];
var glas:=['a','e','i','o','u','y'];
var sogl:set of char:=['a'..'z']-glas;
var alpha:='0123456789';
var n:=ReadInteger('Количество символов:');
var a:=SeqRandom(n,1,36).Select(k->alpha[k]).ToArray;
a.Println;
a.Where(c->c in glas).Concat(a.Where(c->c in dig)).ToArray.
Concat(a.Where(c->c in sogl)).Println
end.

Пример
Количество символов: 50
xkdh00nhw8qr32cgcxiwm8ewbnqagmiquew3e6bc7rs2a05ids
ieaiueeai008328367205

MOGZ ответил