Помогите!!! переменная А вводится с помощью описания : var A:set of char; напишите функцию, которая возвращает количество символов в множестве А.(МОЖНО ИСПОЛЬЗОВАТЬ STRING!!!)
Помогите!!! переменная А вводится с помощью описания : var A:set of char;
напишите функцию, которая возвращает количество символов в множестве А.(МОЖНО ИСПОЛЬЗОВАТЬ STRING!!!)
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы