Program WordsCounter(output);
var str: string;
i, count: integer;
begin
write('Сторка: ');
readln(str);
i := length(str);
if i > 0 then begin
count := 1;
while i > 0 do begin
if str[i] = ' ' then
count := count + 1;
i := i - 1;
end;
end
else
count := 0;
writeln('Число слов: ', count);
readln;
<span>end.</span>
var
n,i,otv,l,m,h,k: integer;
begin
writeln ('сколько человек в группе');
read (n);
for i:=1 to n do
begin
writeln ('какой язык ты изучаешь: 1-англ,2-нем,3-франц,0-никакой');
read (otv);
case otv of
0: l:=l+1;
1: h:=h+1;
2: k:=k+1;
3: m:=m+1;
end;
end;
writeln ('английский язык изучает',h,'человек');
writeln ('немецкий язык изучает',k,'человек');
writeln ('французский язык изучает',m,'человек');
writeln (l,'человек не изучает никакой язык');
end.
Я начиная от конца текста рассуждал.
Браун-альта,кларнет
Смит-флейта,гобой
Вессон-труба,скрипка
Кузнечик сидит в точке 0. Будем считать, что количество способов как попасть в точку ноль - 1.
У нас всего 6 кочек, 6 - конечная.
Мы перемещаемся либо на последующую (+1), либо через одну (+2), либо через две (+3). То есть если мы были на кочке один и прыгнули через две кочки, то попадем в кочку 4 (1 + 3).
Начнём считать.
0 - мы на первом берегу. Наши кочки: 1, 2, 3, 4, 5 и 6 обозначены СЛЕВА. 7 этапом мы прыгнем на другой берег.
0: 1 способ
1: [0] = 1 сп.
2: [0,1] = 1 + 1 = 2 сп.
3: [0,1, 2] = 1 + 1 + 2 = 4 сп.
4: [1, 2, 3] = 1 + 2 + 4 = 7 сп.
5: [2, 3, 4] = 2 + 4 + 7 = 13 сп.
6: [3, 4, 5] = 4 + 7 + 13 = 24 сп.
7: [4, 5, 6] = 7 + 13 + 24 = 44 сп.
Всего существует 44 способа как перебрать на другой берег болота.
P.S. В квадратных скобка [] обозначены индексы из каких точек мы можем попасть в эту точку. Достаточно сложить количество путей тех точек и мы получим количество путей для данной точки.
Ответ: 4) B {100}
Значение этого элемента будет 6241