Ответы на вопрос:
Type s = set of char; function vs(p: s): integer; var i,n: integer; begin for i: =0 to 255 do if chr(i) in p then n: =n+1; vs: =n end; var m: s; begin m : = ['п', 'р', 'и', 'в', 'е', 'т', ' ', '1', '2', '5', 'h', 'e', 'l', 'o']; writeln('количество символов в множестве- ',vs(m)) end. тестовое решение: количество символов в множестве- 14
Популярно: Информатика
-
Прлплмопо20.09.2022 17:54
-
ollolinda21315.12.2022 21:19
-
Kadilya06.02.2023 17:55
-
элиза29с28.03.2021 12:21
-
slender2415.06.2023 02:49
-
alenakoslova16.08.2021 05:31
-
ZzzGoshAzzZ09.03.2021 07:12
-
hurremsultan3025.08.2020 23:49
-
moskvina0803.10.2022 23:24
-
попкорн616.08.2020 15:31