Паскаль, подсчитать количество букв в каждом слове предолжения, тема строки и множества

ReadLn(stroka);
a:= length(stroka);
for i:= 1 to a do
   if stroka[I] == ' ' then b:= b + 1;
a:= a - b;
WriteLn(a);

ответ: www.schools.it

Объяснение:

.com

коммерческие ресурсы

.net

ресурсы и организации связанные с сетью

.org

некоммерческие организации

.info

информационные узлы

.biz

ресурсы для бизнеса

.name

доменная зона для частных лиц с простой логикой: ваше имя — ваш домен

.aero

домен для членов Авиационного сообщества и их потребителей

.arpa

домен используемый исключительно для инфраструктуры интернета

.edu

ВУЗ-ы США

.int

международные организации

.gov

правительственные организации США

.mil

военные ведомства США

.coop

кооперативы и организации их обслуживающие

.museum

музеи, учреждения и частные лица, имеющие отношение к музейному делу

.mobi

сайты для мобильных устройств

.pro

домен верхнего уровня для сайтов, представляющих специалистов разных областей (инженеров, врачей, юристов…)

.tel

онлайн-визитка на базе DNS для автоматической генерации страницы с контактной информацией

.travel

индустрия путешествий, экскурсий и отдыха: турагентства, туроператоры и т.д.

Предполагается, что ответ будет написан на языке Кумир.

использовать Робот

алг

нач

• нц пока справа стена

• • закрасить

• • вверх

• кц

• нц пока снизу свободно

• • закрасить

• • вправо

• кц

• нц пока снизу стена

• • закрасить

• • вправо

• кц

кон

Объяснение:

Используем исполнитель Робот в среде Кумир. Вставка -> использовать Робот

Создаём стены и меняем положение Робота через Робот -> Редактировать обстановку

Закончив с обстановкой, начинаем писать код.

нц = начало цикла, кц = конец цикла

• нц пока справа стена

• • закрасить

• • вверх

• кц

Этот цикл выполняет действия внутри себя только тогда, когда справа от робота находится стена.

• нц пока снизу свободно

• • закрасить

• • вправо

• кц

Этот цикл выполняет действия внутри себя только тогда, когда снизу робота нет стены.

• нц пока снизу стена

• • закрасить

• • вправо

• кц

Этот цикл выполняет действия внутри себя только тогда, когда снизу робота стена.

На выходе получаем универсальный алгоритм, который будет работать с абсолютно любой длиной стены.