Сколько трёхзначных чисел можно записать с цифр 0, 1, 2, 3, 4 при условии, что в записи числа должны - id1596928420230528 от den751 28.05.2023 19:57

Question

Информатика: Сколько трёхзначных чисел можно записать с цифр 0, 1, 2, 3, 4 при условии, что в записи числа должны быть две одинаковые цифры? Выпишите все такие числа.Для решения задачи постройте и проанализируйте дерево.

den751 · Accepted Answer

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш

Вариант, если исключить однобуквенные:

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).
Where(x->x.Length>1).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш

MOGZ ответил