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

Ответы 5

  • type A = set of char;function MA(x:A):integer;var i,n: integer;begin for i:=0 to 255 do if chr(i) in x then n:=n+1; MA:=nend;var m:A;begin m :=('П', 'р', 'и', 'в', 'е', 'т', ' ', '1', '2'); Writeln('Количество символов в множестве- ',MA(m));end.Я не много видоизменил программу... но почему в этом случаи программа не идет???
  • А Вы не моли бы указать конкретнее, что подразумевается под Вашим "не идёт"?
    • Автор:

      picasso
    • 6 лет назад
    • 0
  • Я при беглом осмотре не увидел изменений, кроме как замены одних букв другими
  • нет, все хорошо, огромное вам спасибо
    • Автор:

      jalenxhke
    • 6 лет назад
    • 0
  • вы бы мне не смогли кратко ее объяснить, в пару предложениях, мы не делали подобного... только если Вам не сложно
    • Автор:

      winnie36
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years