Получилась очень громоздкая конструкция из логический условий, но по-другому никак не придумалось
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 слов
Если же условие задачи записано верно, то "х" получается равным корню из 250, а это дробное число 15,8113883008, что невозможно, т.к. основанием системы счисления может быть только целое порядковое числительное
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 слов
тогда решаем:
(в скобках указано основание системы счисления
^ - знак степени)
100(х)=25(10)
100(х)= 1*(х^2) + 0*(x^1) + 0*(x^0) = 25(10)
x^2 + 0 + 0 = 25
x^2 = 25
x=5
100(5) = 25(10)
ответ: СС с основанием 5
Если же условие задачи записано верно, то "х" получается равным корню из 250, а это дробное число 15,8113883008, что невозможно, т.к. основанием системы счисления может быть только целое порядковое числительное