// PascalABC.NET 3.0, сборка 1088
var
MySet:set of char;
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=1 to Length(s) do
if s[i] in ['D'..'I'] then Include(MySet,s[i]);
Writeln('Состав множества: ',MySet)
end.
<u><em>Тестовое решение:</em></u>
Введите строку: HAPPY BIRTDAY TO YOU!
Состав множества: {H,I,D}
Ответ: D
Объяснение: Только на пересечении столбца D со всеми строками (кроме строки D) стоит 0 - значит человекa D никто не знает и только на пересечении строки D со всеми со столбцами (кроме столбца D) находится 0 - значит человекa D никто не знает
запах это точно ....................................................................................................................................................................................................
Function to_base(n: integer; base: integer): integer;
begin
if n = 0 then
to_base := 0
else
to_base := (n mod base) + 10 * to_base(n div base, base);
end;
var
n: integer;
begin
readln(n);
writeln(to_base(n, 3));
writeln(to_base(n, 5));
<span>end.</span>
В любой момент взаимодействия с окном один из элементов управления выделен с помощью пунктирной рамки, в которую заключается его название, и, возможно, цветовой полоской в самом элементе. Это выделение принято считать <span>курсором диалогового окна, </span><span>а сам элемент управления — активным (текущим, выделенным). В диалоговом окне активным является элемент управленияТип файлов:. В любой момент времени пользователь может взаимодействовать только с активным элементом управления.</span>