Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nika614
02.06.2022 19:21 •
Другие предметы
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран все слова, содержащие три буквы. Если таких слов нет,
Показать ответ
Ответ:
Мертвый0Анархист
16.04.2019 23:00
program str;
uses crt;
var
s: string;
n,nsl,ksl,kol,i:byte;
begin
writeln('Введите строку: ');
readln(s);
s:=' '+s;
n:=length(s);
for i:=1 to n do
begin
if (s[i]=' ') and (s[i+1]<>' ') and (s[i+1]<>'.') then
nsl:=i+1;
if (s[i]<>' ') and (s[i]<>'.') and ((s[i+1]='.') or (s[i+1]=' ')) then
begin
ksl:=i;
if ((ksl-nsl)+1=3) then kol:=kol+1;
end;
end;
writeln('Слов из 3-х букв ',kol);
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
КираГринРоуз
29.10.2020 03:49
Присвойте кадастровый номер земельному участку, имеющему порядковый номер 19 в кадастровом квартале с номером 1513235, распложенному на территории Свердловской области...
Åпéłьčüñkå
27.02.2021 19:48
Подготовить доклад на тему: современный слесарь универсал ...
АняГ11
18.05.2023 10:17
Угловой диаметр лунного диска при наблюдении с земли примерно равен...
dksusjehdh
03.05.2021 13:54
Какие размеры проставляют на чертеже детали призматической формы...
zinkovich92
29.09.2022 11:16
Напишите 3 предложение про 3 вида здоровой еды , 3 предложение про 3 вида вредной еды , 3 предложения про 3 виды популярной еды...
asdads123sad123asds
08.03.2023 10:10
1.Дворянин какой вдає из себя друга Журдена з метою випрашивать у него деньги ето :А. Коленет Б. Граф дорант В Ков єль Г. Учитель философи 2.указать учителей каторих...
liteops04
20.01.2022 15:14
1. Кто считается изобретателем волейбола?А) Вильям Дж. МорганБ) Том СойерВ) Агата КристиГ) Джон Вашингтон2. Каком году появилась спортивная игра «волейбол»?а) 1895б)...
Anastasia15Kovaleva
17.05.2021 05:36
10 во с выбором 1 варианта ответа на тему изменения в социальной структуре российского общества 7 класс...
akovlevavika444
19.12.2021 22:01
Почему теория Канта и Лапласа оказалось неверной?...
mashauuu6
18.02.2021 07:58
Sin²x × ctg²x = ? Вопрос по тригонометрии....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
s: string;
n,nsl,ksl,kol,i:byte;
begin
writeln('Введите строку: ');
readln(s);
s:=' '+s;
n:=length(s);
for i:=1 to n do
begin
if (s[i]=' ') and (s[i+1]<>' ') and (s[i+1]<>'.') then
nsl:=i+1;
if (s[i]<>' ') and (s[i]<>'.') and ((s[i+1]='.') or (s[i+1]=' ')) then
begin
ksl:=i;
if ((ksl-nsl)+1=3) then kol:=kol+1;
end;
end;
writeln('Слов из 3-х букв ',kol);
end.