tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вводится последовательность
Вводится последовательность символов, оканчивающаяся точкой. сосчитать количество слов.в pascal.
dashani7562
3 05.07.2019 08:40
0
Ответы
flak202
02.10.2020 20:34
Var
s,q:string;
i,n,j,m,k,l:longint;
begin
Readln(s);
m:=0;
s:=' '+s+' ';
for i:=1 to length(s) do if s[i]<>' ' then
begin
if s[i-1]=' ' then l:=i;
if s[i+1]=' ' then
begin
inc(m);
end;
end;
Writeln(m);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ruana2005
14.08.2019 05:10
Найдите сумму элементов в массиве (3,5 ; 18.3 ; 28,5 ; 1,5 ; 0,18) напишите программу на pascal....
ingab2989
27.03.2020 16:59
Написать программу, которая определяет большее из двух неравных целых чисел, с элементов (поле ввода чисел, метки и кнопки). Язык программирования - Object Pascal....
Арендатор84
27.03.2020 16:59
1.Задача “Paralelepiped.py” Довжина прямокутного паралелепіпеда дорівнює a см, ширина у k разів менша за довжину, а висота на m см більша за ширину. Обчислити об’єм...
victoria223
27.03.2020 16:59
составить программы с цикла и к задачам в питоне(кроме 2)...
Polinazaya02
05.12.2020 13:01
1. Приведите примеры из жизни показывающие свойства адресуемости и дискретности внутренней памяти ЭВМ. Как память компьютера представляется в виде какого-то зрительного...
Nezik
05.12.2020 13:01
В билетной кассе аэропорта имеются К билетов по N1 руб. и М билетов на ночной рейс по цене N2 руб определите предпологаемую выручку авия кассы за этот день ответьте...
Sobakopes
05.12.2020 13:01
Вопрос Выберите лишнее устройство.Укажите правильный вариант ответа:звуковые колонкиОклавиатураМышьмикрофон...
nk291726
05.12.2020 13:02
Как удалить приложение знания...
blvckbubblegum
05.12.2020 13:03
Непрерывным называют сигнал а)несущий какую - либо информациюб)принимающий конечное число определённых значенийв)непрерывно изменяющийся во времениг)несущий текстовую...
olyalyolya
21.09.2019 17:30
Частица to как я знаю ставится перед глаголами в неопределенной форме. но есть предложения в которых глагола вроде и нет, но to все равно ставится, вот пример the...
Популярные вопросы
Кто такой был трибун чем занимался в древнем риме...
2
The russian federation is the largest country in the world. it...
2
Почему воду из некоторых водоемов человек не может использовать...
1
Вопрос 2. как назывался орган надзора за деятельностью правительственных...
1
Каковы возможные причины обмеления озёр и рек...
3
Вычислите массовою долю оксигена в веществе в состав которого...
1
Полностью растворяются ли в соляной кислоте следующие сплавы:...
2
Расскажите про кушанское государства...
2
Почему человеку настоящее время не хватает пресной воды...
1
На двух пунктов расстояние между которыми 25км,вышли одновременно...
2
s,q:string;
i,n,j,m,k,l:longint;
begin
Readln(s);
m:=0;
s:=' '+s+' ';
for i:=1 to length(s) do if s[i]<>' ' then
begin
if s[i-1]=' ' then l:=i;
if s[i+1]=' ' then
begin
inc(m);
end;
end;
Writeln(m);
end.