Ответы на вопрос:
Странноватая , конечно. естественно, что в множестве нет порядка элементов, использование процедур (функций) здесь совершенно ни к чему. если учитывать все требования, то получится весьма корявая программа. примерно вот такая: var s,s1: string; i: integer; mn: set of 'a'..'z'; function f(c: char; m: set of 'a'..'z'): boolean; begin f: =(not (c in m))and(c in ['a'..'z']) end; begin writeln('введите строку: '); readln(s); mn: =[]; s1: =''; for i: =1 to length(s) do if f(s[i],mn) then begin mn: =mn+[s[i]]; s1: =s1+s[i]; end; writeln(s1); end.пример работы: введите строку : this is an example text.thisanexmpl
Популярно: Информатика
-
nebylobyagjjhgf20.01.2022 23:44
-
slivinskaja8305.04.2022 16:14
-
zaharovdv7321.06.2021 20:10
-
ксюsha1023.11.2020 17:52
-
TryCake02.03.2021 12:12
-
solomeina201723.02.2020 08:55
-
AnnaLyarskaya16.03.2022 05:17
-
ангелОк251219.08.2020 05:11
-
Thesanek30rusMaps17.03.2023 21:45
-
рооллбббб06.01.2021 16:32