Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Scheerer
16.08.2022 14:36 •
Информатика
Напечатать в алфавитном порядке все различные строчные буквы, входящие в заданный текст из 100 .
Показать ответ
Ответ:
pantehnik77777oz07f1
07.10.2020 19:47
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var c:char;
var s:='';
for var i:=1 to 100 do begin
Read(c); s+=c;
end;
s.Distinct.Where(t->t<>' ').OrderBy(t->t).Println(',')
end.
Пример
а роза упала на лапу азора и карл у клары украл кораллы а клара у карла украла кларнет и это конец строки
а,е,з,и,к,л,н,о,п,р,с,т,у,ц,ы,э
0,0
(0 оценок)
Популярные вопросы: Информатика
dakuevasaida
27.04.2022 13:15
3. Өлшемі 8х8 шахмат тақтасын кодтау үшін ақпарат көлемі қандай?...
Дора18119
06.09.2020 10:31
По икт в виде таблицы истины ( дизъюнкция, коньюкция, инверсия ) • : не (a или b) и (c или b)...
пятка1980
06.09.2020 10:31
Составить программу , которая в тексте удаляет все пробелы....
Kreizanova
06.09.2020 10:31
Определите результат выполнения программы (без компьютера) begin s: =0; x: =10; repeat s: =s+x; x: =x+10; untill x 12; writein( s= ,s); writein( x= ,s); end....
максим1676
02.04.2021 22:02
У исполнителя Омега две команды, которым присвоены номера: 1. прибавь 3; 2. умножь на 2; (b — неизвестное натуральное число). Выполняя первую из них, Омега увеличивает число на...
zhenyadobr
10.01.2021 18:33
У исполнителя Омега две команды, которым присвоены номера: 1. вычти 3; 2. раздели на b; (b — неизвестное натуральное число; b ≥ 2).Выполняя первую из них, Омега уменьшает число...
degtarrusa74
15.10.2020 10:01
Укажите правильную последовательность...
ляляля06
25.09.2022 19:36
По заданной блок схеме выполнить действия алгоритма для чисел 27 и 63...
nataly163
22.07.2020 00:11
Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина...
sveta6729
24.05.2022 09:59
Напишите наибольшее целое число х, для которого истинно высказывание: (х 280) ИЛИ (х 80)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var c:char;
var s:='';
for var i:=1 to 100 do begin
Read(c); s+=c;
end;
s.Distinct.Where(t->t<>' ').OrderBy(t->t).Println(',')
end.
Пример
а роза упала на лапу азора и карл у клары украл кораллы а клара у карла украла кларнет и это конец строки
а,е,з,и,к,л,н,о,п,р,с,т,у,ц,ы,э