Войти
Регистрация
Спроси 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)...
zhenyadobr
10.01.2021 18:33
У исполнителя Омега две команды, которым присвоены номера: 1. вычти 3; 2. раздели на b; (b — неизвестное натуральное число; b ≥ 2).Выполняя первую из них, Омега уменьшает число...
nataly163
22.07.2020 00:11
Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина...
sveta6729
24.05.2022 09:59
Напишите наибольшее целое число х, для которого истинно высказывание: (х 280) ИЛИ (х 80)...
Плаоцтвтч
02.09.2021 13:45
Решите что написано на картинке...
Rainbow619
24.01.2023 22:47
11. Что будет выведено на экран в результате работы следующего цикла (k – целая переменная)? а) k:= 1 нц пока k 5 вывод k, k:= k + 1; кц k:= 1; while k 5 do begin write(k, );...
romalebedev19
05.10.2022 15:32
Как создать изображение воробья лучше готовую фото...
yana3657
05.01.2022 13:19
Program Primer,var a, s: integer,beginS:= 0;readln(a);while a 0 do beginif (a mod 4 = 0) and (a mod 10 = 4)thenS:= S +a;readln(a);end;writeln(s);end.Какое число получится, есливвести...
ValeraSmirnov213123
14.04.2022 00:03
Тест по Корреляционным зависимостям...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.
Пример
а роза упала на лапу азора и карл у клары украл кораллы а клара у карла украла кларнет и это конец строки
а,е,з,и,к,л,н,о,п,р,с,т,у,ц,ы,э