Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Зозяська
10.07.2022 19:35 •
Информатика
Определить длину 2го слова в предложении. turbo pascal
Показать ответ
Ответ:
kostromitind
19.06.2020 11:18
1. измерить длину всего предложения
2. вырезать из предложения 2 кусочка текста: до 1 пробела и до 2 пробела
3. измерить длину обоих кусочков
4. длина кусочка 2- длина кусочка 1 - 1 символ (пробел между кусочками)= искомая длина
0,0
(0 оценок)
Ответ:
anhelinayeremenko30
19.06.2020 11:18
Var
s : String;
begin
Writeln('Vvedite predlojenie:');
Readln(s);
s := Copy(s, pos(' ', s) + 1, Length(s));
s := Copy(s, 1, pos(' ', s) - 1);
Writeln('Dlina 2 slova = ', length(s));
Readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
wwwvadimsokol
21.03.2023 00:36
Черно-белая фотография разбита на точки, каждая из которых кодируется шестью битами информации. каков информационный объем фотографий 5х8 см, если один квадратный сантиметр содержит...
katizhi
25.07.2020 10:06
Шифр цезаря працює так: кожна буква у вихідному тексті замінюється третьою після нею буквою в алфавіті, літери якого вважаються записаними по колу. розшифруйте слово тсдкжспозррв,...
alinapvby
19.04.2022 11:56
Правила безопасности работы за компьютером...
Kkttkk
21.09.2021 23:04
6. Что будет выведено на экран в результате работы следующего фрагмента программы: X = 8 : Y = 3 X = 2 * X + 2 * Y PRINT X , Y : PRINT Y = 2 * X + 2 * Y PRINT “X =” ; Y , “Y =” ; X...
krichilskaatтанюшка
09.07.2020 20:59
решить информатику. Программа на языке Паскаль. Вычисли сумму s=n∑k=1 k+1/k^2+1, если значение n вводит пользователь. Если n=9, то вывод на экран (ответ округли до сотых)...
Сумасшедшая55555
08.08.2020 08:02
Хелп, очень нужно С клавиатуры вводятся элементы массива. Массив размерностью 6 элементов. Найти среднее арифметическое массива. Вывести на экран. Отсортировать по возрастанию массив....
s1mple72
01.04.2023 21:11
Когда и кем был изобретена вычислительная машина марк-1...
dzhusanastasia
01.04.2023 21:11
Какое имя будет иметь flash-память, если в пк есть один дисковод для гибких дисков, 2 жестких диска и 1 накопитель для cd? (определить все имена дисководов)...
ник5040
01.04.2023 21:11
Что обозначает сheck в паскалье или с++. например : check (d)...
roman81rudi
01.04.2023 21:11
Впиши в таблицу ,что есть источник информации,а что-приемник информации в каждом событии.событие-учитель проверяет тетрадь,источник -костя слушает радио,источник...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
2. вырезать из предложения 2 кусочка текста: до 1 пробела и до 2 пробела
3. измерить длину обоих кусочков
4. длина кусочка 2- длина кусочка 1 - 1 символ (пробел между кусочками)= искомая длина
s : String;
begin
Writeln('Vvedite predlojenie:');
Readln(s);
s := Copy(s, pos(' ', s) + 1, Length(s));
s := Copy(s, 1, pos(' ', s) - 1);
Writeln('Dlina 2 slova = ', length(s));
Readln;
end.