Переменная а вводится с описания : var a: set of char; напишите функцию, которая возвращает количество символов в множестве а.(можно использовать ! )

125

145

Посмотреть ответы 2

Ответы на вопрос:

Праемпт

Информатика

4,6(38 оценок)

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