//Pascal ABC.NET v3.1 сборка 1172
Var
s:string;
i,k:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]<>' ' then inc(k);
writeln(k);
end.
<span>Пример ввода:
</span><span>Очень много мячей
Пример вывода:
15
</span>
11011111.01000111101+<span>110101011.10001100010
</span>1110110011.01100001011+<span>1110001011.01000001011
</span>как то так, В это <span>Шестнадцатиричная</span>
Нарисуй книгу напеши наука и - история
Начинаем алгоритм.
Переменным c и d присваиваются значения -3 и 3 соответственно.
Далее идет оператор проверки условия:
Если сумма c и d <0,
проводим действие "да"
иначе "Нет"(т.е. переходим на последнее действие.
-3+3<0?
Нет!
поэтому выполняем действие
присваивания переменной d суммы d+c:
-3+3=0
Ответ:0
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Вводите:');
Write('Кол-во слов: ',s.ToWords.Count)
end.
<u><em>Тестовое решение</em></u>
Вводите: А роза упала на лапу Азора
Кол-во слов: 6