Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
тупойчеловек376
29.09.2022 22:44 •
Информатика
Pascal.дана строка. подсчитать и вывести количество слов, первое и последнее слово
Показать ответ
Ответ:
Докторгоспарарнери
18.09.2020 01:55
// PascalABC.NET 3.0, сборка 1088
begin
var s:=ReadLnString('Введите строку: ');
var a:=s.ToWords.ToArray;
Writeln('Слов в строке: ',a.Length);
Writeln('Первое слово: ',a[0],', последнее: ',a[a.Length-1])
end.
Тестовое решение:
Введите строку: Это наша тестовая строчка
Слов в строке: 4
Первое слово: Это, последнее: строчка
0,0
(0 оценок)
Популярные вопросы: Информатика
РаскольниковРодион
04.12.2021 22:30
Перевести длину, заданную в дюймах, в сантиметры (10 дюймов = 254 мм)....
Sawa1605
16.05.2023 21:35
Напечатать последовательность чисел фибоначчи 1, 1, 2, 3, 5 и т.д., где каждое число равно сумме двух предыдущих: ровно n чисел....
elena563
23.08.2020 03:24
используя английский алфавит и метод шифрование «Код цезаря», закодируй слово SCHOOL смещением по часовой стрелке на две буквы...
cross666
26.12.2020 00:46
сделать конспект на тему как устроена компьютерная сеть...
sanya1130
28.12.2021 09:16
Вычислите логическое выражение ¬(1&0)&¬(0&A)&(1&0)...
leratolcynova
16.05.2021 12:07
Определите взаимосвязь между диаграммами и условным форматированием...
snigireva00
17.12.2022 22:41
Что является системой , рассчитанные на выполнение таких задач , как прием , передача и хранение большого объема информации?....
19557
09.10.2021 07:12
нужна Приложение EXCEL! От...
lisi2912
03.04.2020 19:40
Які характеристики має навчальний проект (інформатика)А) унікальність продукту, послуги результатуБ) послідовність розробкиВ) обмеженість у часіГ) доступність...
hasmikaydinyan
18.04.2020 01:04
Русский язык дз посмотрите легко думаю...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var s:=ReadLnString('Введите строку: ');
var a:=s.ToWords.ToArray;
Writeln('Слов в строке: ',a.Length);
Writeln('Первое слово: ',a[0],', последнее: ',a[a.Length-1])
end.
Тестовое решение:
Введите строку: Это наша тестовая строчка
Слов в строке: 4
Первое слово: Это, последнее: строчка