Дана строка. выписать все буквы из этой строки. - вопрос №5601482 от АлиАбдрахманов 17.05.2023 11:47

Question

Информатика: Дана строка. выписать все буквы из этой строки. решить с множеств.

АлиАбдрахманов · Answer

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:='а роза 13.56 sin(x) упала wow! на лапу азора';
var p:set of char:=[];
foreach var c:char in s do
if c in ['а'..'я','ё'] then Include(p,c);
Writeln(p)
end.

Результат
{з,п,о,н,л,у,а,р}