Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Вікторія232003
10.12.2020 04:22 •
Информатика
Паскаль, подсчитать количество букв в каждом слове предолжения, тема строки и множества
Показать ответ
Ответ:
kamila285
26.08.2020 19:17
ReadLn(stroka);
a:= length(stroka);
for i:= 1 to a do
if stroka[I] == ' ' then b:= b + 1;
a:= a - b;
WriteLn(a);
0,0
(0 оценок)
Популярные вопросы: Информатика
ПолинаВозгрина
18.11.2021 05:12
Почему таблица истинности для операции не содержит две строки, а таблицы для других изученных операций - четыре? сколько строк в таблице истинности выражения с тремя переменными?...
serpgo
15.04.2023 23:05
Для какого из указанных значений x истинно высказывание - ((x 3)v(x 4)) 1)1; 2)4; 3)7; 4)нет решений...
ira231006
03.07.2020 20:15
Сделайте , вообще не понимаю такое...
katunina2004ox971p
06.06.2022 08:35
Написать программу рисования узора в кумире для исполнителя чертёжник. узор на фото...
AFMaster
07.02.2022 07:26
Втаблице запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте интернета: запрос количество страниц (тыс.) котик 230 фото 115...
ksenkalow4nhp
02.10.2021 21:13
Сделать конспект на тему История развития компьютера...
ivabogdan
13.04.2021 06:21
Задание 2. Разработайте скрипт с анимацией и событиями, используя костюмы. Сценарий анимации: Акула гонится за рыбкой, если догоняет рыбку то программа останавливается ЭТО...
еккаа
24.01.2022 15:52
Что сделал Траян для укрепления империи??...
Динка105
24.01.2022 15:52
1. Последовавшие за Августом императоры всеми укрепляли свою власть. 2. Самой зловещей фигурой среди императоров был Нерон. 3. Часто по ночам Нерон вместе со своими дружками...
jeniakovaleva56
10.08.2021 06:07
Карлсн может съесть коробку конфет за 15 мин, а малыш за 45. За сколько минут они съедят 2 таких коробки конфет вместе...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:= length(stroka);
for i:= 1 to a do
if stroka[I] == ' ' then b:= b + 1;
a:= a - b;
WriteLn(a);