)напишите программу, определяющую, сколько слов в данной строке текстаpascal) на вход программы поступает строка текста, в которой могут встречаться: — прописные и строчные (т.е. большие и маленькие) латинские буквы; — пробелы; — знаки препинания: точка, запятая, восклицательный и вопросительный знак; — символ –, обозначающий в некоторых случаях тире, а в некоторых — дефис. слово — это последовательность подряд идущих латинских букв и знаков дефис, ограниченная с обоих концов. в качестве ограничителей могут выступать начало строки, конец строки, пробел, знак препинания, тире. тире отличается от дефиса тем, что слева и справа от знака дефис пишутся буквы, а хотя бы с одной стороны от тире идет либо начало строки, либо конец строки, либо пробел, либо какой-либо знак препинания, либо еще одно тире.

Получилась очень громоздкая конструкция из логический условий, но по-другому никак не придумалось

var t: string; n: integer; i,x,y: byte;
begin
  writeln ('Введите строку');
  readln (t);
  n:=length(t);
  t:=t+'.'; //пририсовываем к строке лишний символ "не буква", иначе программа может не посчитать последнее слово в случае, если строка кончается буквой.
  x:=0;   // переменная для обозначения конца каждой группы из букв, идущих подряд 
  y:=0;   // переменная для подсчета количества групп из букв, идущих подряд  
  for i:=1 to n do 
    begin
      // определяем, является ли текущий символ буквой:
      if ((ord(t[i])>64) and (ord(t[i])<91)) or ((ord(t[i])>96) and (ord(t[i])<123)) or ((ord(t[i])>191) and (ord(t[i])<256))
        then x:=1    //если да, то х=1
        else 
          begin
            if x=1 then begin y:=y+1; x:=0 end;  // если текущий символ не буква, то проверяем "х" - если х=1, значит слово кончилось и "у" увеличиваем на 1, а "х" соответственно снова обнуляем. теперь при следующем символе "небуква" наш "у" не увеличится
                 //В следующем длинном условии проверяем исключение - является ли текущий символ тире или дефисом. если дефис, то количество уже посчитанных слов уменьшим на 1, т.к. дефис стоит в середине слова и значит предыдущее прибавление 1 было неправильным.
            if (t[i]='-') and (((ord(t[i-1])>64) and (ord(t[i-1])<91)) or ((ord(t[i-1])>96) and (ord(t[i-1])<123)) or ((ord(t[i-1])>191) and (ord(t[i-1])<256))) and (((ord(t[i+1])>64) and (ord(t[i+1])<91)) or ((ord(t[i+1])>96) and (ord(t[i+1])<123)) or ((ord(t[i+1])>191) and (ord(t[i+1])<256)))
              then y:=y-1
          end
    end;
  
  writeln('В данной строке ',y,' слов')
end.

Результат работы программы:

Введите строку
Ali-Baba,- это не имя атамана разбойников, это китайский магазин.
В данной строке 9 слов

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.

Насколько я понял ваше условие, вот код (немножко на скорую руку, но рабочий!):

#include <cstdio>
#include <iostream>
using namespace std;
int main(){
int n, kolvo=0;//заводим переменную n и переменную kolvo, отвечающую за количество купюр
cout << "Enter n:\n"; cin >> n;//сканируем эту переменную
if (n > 64){
kolvo += n / 64;
n %= 64;
}
if (n > 32){
kolvo += n / 32;
n %= 32;
}
if (n > 16){
kolvo += n / 16;
n %= 16;
}
if (n > 8){
kolvo += n / 8;
n %= 8;
}
if(n > 4){
kolvo += n / 4;
n %= 4;
}
if (n > 2){
kolvo += 1;
n %= 2;
}
if (n == 1){
kolvo += 1;
}
cout <<"There's the number:\n"<< kolvo;
return 0;
}

P.S.:думаю понятно, почему последние два if' а отличаются, но если остались вопросы, то пишите!