Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
daleroks
13.11.2022 05:34 •
Информатика
Имеется некоторая последовательность символов. образовать новую последовательность, включив в нее символы исходной, кроме запятых. (использовать склейку «+»)(не использовать pos, delete, copy…)
Показать ответ
Ответ:
Schoolboy0770
02.07.2020 20:45
Var n, s:string;
i:byte;
begin
read(s);
n:='';
for i:=1 to length(s) do
if s[i]<>',' then n:=n+s[i];
write(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ivankozyr69gmail
31.10.2021 21:05
Какое опасное излучение от компьютера и безопасное в цифрах дать ответ...
траппер
26.05.2020 00:53
1)составьте программу,которая заполняет массив a[1..10] случаынми целыми числами в диапазоне от 0 до 10 и находит минимальный элемент массива среди элементов с нечётными...
Jama133
26.05.2020 00:53
Для какого из чисел истинно высказывание: не (первая цифра чётная) и (последняя цифра нечётная)? 1) 1234 2) 6843 3) 3561 4) 4562...
маркен2
01.06.2021 12:22
(24 mod 5-16 div 2)* trunc(-5.2)/ abs(trunс(-6.8)+round(-6.8))...
angelochekzluk
25.05.2022 05:11
Написать программу, которая находит количество чисел, в которых 1-ая цифра больше 2-ой в промежутке 10;99(через for)...
Zabuzamomochiiii
13.09.2022 04:55
Найти СХОДСТВА с оригиналом: 1 Радиоуправляемая модель самолёта 2 Словесное описание куртки 3 Чайник из пластелина в натуральную величину 4 План квартиры 5 Представление...
помощь155
13.11.2020 13:56
Program mas_1; var n, i: integer; a: array[1..10] of integer; begin randomize; for i:=1 to 10 do a[i]:=random(100); for i:=1 to 10 do write (a[i], ); i:=0; repeat i:=i+1;...
wut123
01.12.2020 03:00
ПОСТРОИТЬ КОМПОЗИЦИЮ ЕР ТОСТЫК...
13nastuxxa
23.10.2020 15:46
Жиындардын аттарын атаңдар :1) нарселерди санауда колданылатын сандар жиыны. 2) жазықтықтагы о нуктесинен бирдей кашыктыктагы нуктелер жиыны. 3)бір нүктеден шыккан...
тупая761
07.05.2022 17:47
Посмотрите вокруг Есть ли в парке животные?Какие это животные?К какой группе они относятся-к беспозвоночным или позвоночным?К теплокровным или холоднокровным?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:byte;
begin
read(s);
n:='';
for i:=1 to length(s) do
if s[i]<>',' then n:=n+s[i];
write(n);
end.