Посчитать количество слов

[OPEJI]

Задание:
Ввести текст. Найти все предложения, в которых слова имеют одинаковую длину.

Примечание: нельзя использовать строки и массив...

[OPEJI]

Задание:
Ввести текст. Найти количество слов в которых все буквы одинаковы.

Примечание: нельзя использовать строки и массив...

[Serge_Bliznykov]

Примечание: нельзя использовать строки и массив...

вот "хитроумные" преподаватели (ну или авторы задачников) не перестают меня поражать!!

Расскажите, как это требование сочетается с

Ввести текст

?!!
Это означает, что текст НИКУДА не сохраняется?!! или имеется в виду, что нужно организовать динамическую структуру в памяти (например, связнный список, и хранить вводимые символы в нём?!! я фигею, дорогая редакция...

сорри за лишнюю эмоциональность! не мог сдержаться...

[BoozZzilla]

жонглирование без рук

[Stilet]

ИМХО задача слишком сложна для школы...
Но все же решить ее можно.

вот что я имел ввиду:

var c:char k,n,words,i:integer;
begin k:=0;
 repeat c:=readkey;
  k:=0;  Words:=1;
   if (c<>#13)and(c<>' ') do n:=n+ord(с);
   if k=0 then k:=n
   else     if (n=k) then inc(words);   n:=0;
   if (c<>#13)and(c<>' ') do n:=n+ord(с);
   if (n=k) then inc(words);   n:=0;
 until c=#13;
 write(words);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Возможно конечно не особо надежно, но какая задача - такой и ответ.

Т.Е. создавать хеш-сумму слов и сравнивать их а не сами слова.

[OPEJI]

Вот решение первой задачи

uses crt;
var a,l:char;
n,dlina,dlinas:integer;
z,b:boolean;
begin
 Write('Введите текст:');
 n:=0;//количество необходимых предложений
 dlina:=0;//длина слова
 b:=true;
 a:=readkey;
 write(a);
 l:=a;
  while a<>#13 do //пока не нажат Enter
   begin
    if (l=' ') and (l=a) then //защита от дурака (от кучи пробелов)
     begin
      repeat
       a:=readkey;
       write(a)
      until (a<>' ');//пока А не станет не равно пробелу
     end;
    if b and (a<>'.') then
      begin
       if (a<>' ') then
        dlina:=dlina+1;
       if ((a=' ') and (l<>'.')) then //слово кончилось
        begin
         if not z then //если в первый раз
          begin
          z:=true;//понеслась
          dlinas:=dlina;
          dlina:=0;//сбрасываем для следующего слова
          end
         else //если не первое слово
          begin
           if (dlina=dlinas) then //проверяем слова
            begin
            dlinas:=dlina;//длина данного слова
            dlina:=0;//сбрасываем для следующего слова
            end
           else //если слово не ок
            b:=false;//слово нам не подходит
          end;
        end;
      end;
      if ((a='.') or (a='!') or (a='?')) and (l<>a) then //если конец предложения
      begin
      if (l<>' ') then//проверяем последнее слово
       begin
        if (dlina=dlinas) then //проверяем слова
         begin
          dlinas:=dlina;//длина данного слова
          dlina:=0;//сбрасываем для следующего слова
         end
        else //если слово не ок
         b:=false;//слово нам не подходит
       end;
       if b then
        n:=n+1//считаем количество "нужных" предложений
       else
        b:=true;//сбрасываем парметр b для следующих предложений
       {сбрасываем значения}
       z:=false;
       dlinas:=0;
       dlina:=0;
      end;
     l:=a;//сохраняем текущий символ
     a:=readkey;
     write(a);
   end;
   writeln('Количество предложений: ',n);//выводим
end.