Найдите десятичное число x, такое что 20 x 30, запись которого в системе счисления с основанием 3 заканчивается - id586780720220802 от Zalis1 02.08.2022 10:06

Question

Информатика: Найдите десятичное число x, такое что 20 x 30, запись которого в системе счисления с основанием 3 заканчивается на 11.

Zalis1 · 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.

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

Найдите десятичное число x, такое что 20 < x < 30, запись которого в системе счисления с основанием 3 заканчивается на 11.

MOGZ ответил