Program slova; - название программы
var - раздел описания переменных
d : string объявляем переменную, которая называется "d" с типо string(строка)
i, k : integer; объявляем еще 2 переменные с именами "i" и "k", тип у них целочисленный.
begin - начало исполнения программы (в данном случае)
write('Введите предложение'); - Вывод на экран сообщения: Введите предложение
read(d) - даем возможность пользователю ввести строку с клавиатуры, и сохраняем ее в переменную d
for i := 1 to length(d) do - цикл, который будет идти от 1, до длины строки (d), короче говоря, до последнего символа.
if (d[i] = ' ' then - условие, которое ищет пробел в предложении
k := k + 1; увеличиваем переменную на 1, если условие выполняется.
writeln('В вашем предложении:', k+1) вывод на экран сообщения "В вашем предложении", а затем вывод переменой k увеличенной на 1.
Поделитесь своими знаниями, ответьте на вопрос:
Что делает следующая программа? program whatlslt; var f: file of integer; i: integer; begin reset( f ); while not eof( f ) do begin read( f, i ); writeln( i ); end; close(f); end. 1) выводит в столбик числа, записанные в файле; 2) выводит в строку числа, записанные в файле; 3) записывает числа в новый файл; 4) дописывает числа в существующий файл.
ответ 1
ясно, что не 3 и 4, т.к. файл открывается на чтение(reset)
ответ не 2, т.к. при вызове writeln() происходит переход на следующую строку, т.е. числа будут записаны в столбик