Question

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

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

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

Answer 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.