Предмет:
ИнформатикаАвтор:
brookhunterbegin
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.
Автор:
siroДобавить свой ответ
Предмет:
ИсторияАвтор:
guadalupe27Ответов:
Смотреть
Предмет:
Русский языкАвтор:
alice20Ответов:
Смотреть
Предмет:
МатематикаАвтор:
akira14Ответов:
Смотреть
Предмет:
Русский языкАвтор:
brighton8ieoОтветов:
Смотреть