Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Admiralchik29
21.05.2022 20:41 •
Информатика
Подсчитать количество слов в строке, если все слова разделены ровно одним пробелом. в начале и в конце строки пробелов нет. паскаль
Показать ответ
Ответ:
taty30
22.09.2020 19:32
Var s:string; k:integer;
begin
writeln('Введите строку:');
readln(s);
s:=s+' ';
while pos(' ',s)<>0 do
begin
k:=k+1;
delete(s,1,pos(' ',s));
end;
writeln('k=',k);
end.
Пример:
Введите строку:
Подсчитать количество слов в строке
k=5
0,0
(0 оценок)
Популярные вопросы: Информатика
zhjdjq2005
17.10.2021 22:11
Догашнее запишите развёрнутую записьследующих чисел: 14510 ac01163004513778 100b12...
Файлетмер
11.01.2023 21:38
Слогической переменной определить: является ли шестизначное натуральное число палиндромом. на с++....
анна2259
14.08.2021 06:22
По заданному числу (1-12)вывести название соответствующего месяца решить в паскале 1 постановка величины: n-месяц исходные данные : n результат: текстовое сообщение(наименование...
Crazy2daisy
14.08.2021 06:22
Производится четырёхканальная (квадро) звукозапись с частотой дискретизации 16 кгц и 32-битным разрешением. результаты записываются в файл, сжатие данных не производится....
салссо1232960
09.01.2020 17:14
3емкости 8 литров 5 литров и 12 литров как с их набрать ровно 1литров...
rmandzinDhsha
12.05.2021 20:05
C++ Задача 3. Дана длина ребра куба. Вычислить объем куба и площадь его боковой поверхности. Данные взять из контрольного примера. Контрольный пример: A=5. Результат: V=125,...
Finneas
12.08.2020 01:06
C++ Задача 2.По заданным величинам радиусов оснований R и r и высоты h найти объем и площадь Исходные данные взять из контрольного примера.Контрольный пример: R=20, r=10,...
fox590
19.02.2020 06:14
C++ Задача 4. Даны два положительных действительных числа. Найти среднее арифметическое и среднее геометрическое этих чисел. Данные взять из контрольного примера. Среднее...
temalishchenko
04.07.2020 02:06
Движение робота по линии. Урок 1 определяет сумму числовых значений цветов пятого и конечного полей определяет сумму числовых значений цветов шестого и конечного полей определяет...
islamlg
16.01.2021 17:26
Задача С «Симметричная матрица» Дана квадратная матрица. Проверить, является ли она симметричной относительно главной диагонали. Входные данные. Записано число n (0 n ≤ 100)....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите строку:');
readln(s);
s:=s+' ';
while pos(' ',s)<>0 do
begin
k:=k+1;
delete(s,1,pos(' ',s));
end;
writeln('k=',k);
end.
Пример:
Введите строку:
Подсчитать количество слов в строке
k=5