Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
rembo15
13.03.2021 20:38 •
Информатика
Напечатать в алфавитном порядке все различные строчные буквы, входящие в заданный текст из 100 .
Показать ответ
Ответ:
лучшая40
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 оценок)
Популярные вопросы: Информатика
kolakao
23.05.2022 08:40
создать программу вычисляющую длину гипотенузы с и велечину двух углов alf и bet прямоугольного трекгольника, если заданы длины двух его катетов a и b 1. наберите текст программы...
sot58
24.10.2020 20:34
упростить логическое выражение(AvC)&(-AvB)&(Av-C)Там ещё...
ler2131mold
16.01.2020 21:38
№4 дан рекурсивный алгоритм: procedure f(n: integer); begin writeln( * ); if n 0 then begin writeln( * ); f(n-2); f(n div 2); end end; сколько символов звездочка будет напечатано...
Михаил684
21.08.2020 02:41
Вопрос на 100 var a,b,c,p: real; begin writeln( введите размеры треугольника a,b,c ); read(a,b,c); p: =a+b+c; if (a=b=c)then begin writeln( треугольник равносторонний ); writeln(...
lipaalexandrova
15.05.2023 00:41
РЕШИТЬ ЧЕРЕЗ С++ Написать программу, которая бы по введенному номеру единицы измерения (1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр) и длине отрезка L выдавала...
Jojo11wye
19.04.2022 09:02
Написать программу, которая вводит число. Если число двузначное, то нужно найти сумму цифр в числе. Если число трехзначное – произвести произведение цифр числа. Если число четырехзначное...
Le213768
11.12.2021 02:00
Написать программу : Сравнить 2 числа из большего вычесть 10 , к меньшему прибавить 5....
geroi29
10.11.2020 23:42
Постройте таблицы истинности для следующих логических выражений: 1. (А&ВvC) v Ā & Ċ (тоже чёрточка сверху, над С). 2. (В&А&С) v (B&Ā)...
zar26
22.11.2020 20:59
Подскажите кто знает, в какой программе можно сделать такие графики? Для примера график дали, а в чём делать не сказали......
alial1
17.01.2020 01:11
Надо выбрать верный ответ!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.
Пример
а роза упала на лапу азора и карл у клары украл кораллы а клара у карла украла кларнет и это конец строки
а,е,з,и,к,л,н,о,п,р,с,т,у,ц,ы,э