Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Амишка51
23.12.2022 15:55 •
Информатика
Дана предложение напечатайте все символы до запятой
Показать ответ
Ответ:
Ekaterina152005
30.04.2020 15:21
Var s: string;
n: integer;
begin
write('предложение: '); readln(s);
n:=pos(',',s);
if n>0 then writeln(copy(s,1,n-1))
else writeln(s);
end.
предложение: декабрь, январь, февраль - зима.
декабрь
0,0
(0 оценок)
Популярные вопросы: Информатика
oslipak
18.10.2022 02:00
Можете подсказать как формируется адрес сети? !...
Svetik200611
07.01.2020 23:50
написать на с++! через if,else.swich...
TheArtemSuper111
26.12.2022 00:25
Какие объекты являются базой данных? Школьный учебник Интернет Файловая система Телефонный справочник Каталог товаров...
хорошийпарень2
23.12.2022 20:04
Назовите все сайты которыми вы пользуетесь? И есть ли в них протокол...
erenina88
23.12.2022 20:04
Отметьте верные IP-адреса компьютера: 1. 288.215.147.1; 2. 255.255.0.255; 3. 210.147.147.11; 4. 150.13.255....
egoraga142
09.07.2020 00:35
№1. чему будет равно значение переменной c в результате выполнения фрагмента программы: a: =125; b: =25; c: =12; if a div 25=0 then if a mod 12=0 then c: =b div (a mod c)...
вероника20048
18.01.2022 16:07
Графический формат jpeg позволяет а . сжимать информацию б. сжимать цифровые и отсканированные фото...
василиска8
18.01.2022 16:07
По информатике сколько существует различных послеловательностей из символов (плюс) и (минус) длиной ровно пять символов?...
sashadothenco
18.01.2022 16:07
Оцените информационный объем стереоаудиофайла длительностью 10 секунд при глубине кодирования 8 битов и частоте дискретизации звукового сигнала равны 8000 измерений в секунду...
Ангелина293922
13.04.2022 13:04
Сделать так чтобы writeln был заменен другим словом и повторялься не больше двух раз program choise; var n_m: integer; writeln( введи номер месяца ); readln(n_m); case n_m...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n: integer;
begin
write('предложение: '); readln(s);
n:=pos(',',s);
if n>0 then writeln(copy(s,1,n-1))
else writeln(s);
end.
предложение: декабрь, январь, февраль - зима.
декабрь