Программа подсчитывает количество пробелов в веденной с клавиатуры строке и добавляет 1 к этому значению, но в ней ошибка не k+1, а просто k в строчке writeln('В вашем предложении: ',k);
program Slova; //название программы
var
d:string; //объявление переменной d строка
i,k: integer; //объявление переменных i,k целые числа
begin // начало выполнения программы
write('Введите предложение:') ; //выводит строку на экран Введите предложение:
read(d); // записывает значение в переменную d введенные с клавиатуры
for i:=1 to length(d) do // for это цикл, i:=1 присваиваться значение переменной i единица, length(d) длина строки d то-есть количество в ней символов и цикл будет выполниться до тех пор, пока не переберет все символы в строке d
if d [i]=' ' then // если в строке d символ под номером i равен пробелу выполнять следующую строку↓
k:=k+1; //переменная k с каждым выполнением увеличиваться на 1
writeln('В вашем предложении: ',k+1); // выводит на экран строку
В вашем предложении: и значение переменной k увеличенное на 1
end. //конец программы
Объяснение:
Приведите примеры ситуаций, в которых информация:
собирается - опрос журналистом людей для статьи в газете
обрабатывается - решение учеником задачи
упрощается - тбъяснение учителем материала урока
создается - придумывание журналистом статьи (как ее написать, что в ней написать и т.д)
запоминается - выучивание учеником стиха
измеряется - рассчитывание программистом объема, который займет написанная им программа
копируется - списывание учеником домашнего задания у одноклассника
передается - распространение слухов внутри класса или школы (один рассказал, другой передал и так далее)
принимается - ученики слушают, что им рассказывает учитель на уроке
разрушается - отклонение написанной статьи журналиста
делится на части - работа с текстом на уроке русского языка (вставить запятые, буквы, например)
ищется - поиск материала для написания сообщения, доклада на какой-либо урок
Надеюсь, смогла