Количество слов будет на единицу больше количества пробелов, если пользоваться традиционным алгоритмом. 1. традиционное решение. // pascalabc.net 3.1, сборка 1192 от 07.03.2016 var s: string; i,k: integer; begin write('введите строку: '); readln(s); k: =0; for i: =1 to length(s) do if s[i]=' ' then inc(k); writeln('количество слов равно ',k+1) end. результат выполнения программы: введите строку: а роза упала на лапу азора количество слов равно 6 2. решение срeдствами pascalabc.net 3.1 // pascalabc.net 3.1, сборка 1192 от 07.03.2016 begin var s: =readlnstring('введите строку: '); writeln('количество слов равно ',s.towords.count) end. результат выполнения программы: введите строку: а роза упала на лапу азора количество слов равно 6
Ирина-Макаркина253
15.05.2021
Классическая на динамическое программирование. применим этот принцип: количество вариантов как попасть в какое-то состояние равно сумме количеств вариантов как попасть в предыдущие состояния. например вариантов попасть на первую ступеньку -1, на вторую - 2 и т.д. var i,n : integer; a : array [1..20] of integer; begin n: =20; a[1]: =1; a[2]: =2; for i: =3 to n do a[i] : = a[i-1] + a[i-2]; writeln(a[n]); end. ответ: 10946 способов.
ответ: у файл
объяснение: