• На Паскале !!!!!!Плиззз
    Дана строка.

    а. Определить количество гласных и согласных букв.

    б. Удалить все повторяющиеся символы.

Ответы 1

  • PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018Внимание! Если программа не работает, обновите версию!

    begin

     var Гласные := ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];

     var Согласные := ['а'..'я'] - Гласные;

     var s := ReadlnString('Введите строку:').ToLower;

     var Гласных := s.Where(t -> t in Гласные).Count;

     var Согласных := s.Where(t -> t in Согласные).Count;

     Println('Гласных', Гласных, ', согласных', Согласных);

     Print('После удаления повторов:');

     s.Distinct.Println

    end.

    answer img
    • Автор:

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

Войти через Google

или

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

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

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