чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить
readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);
соответственно и запись в файл write(f,s)
Ответ дал: Гость
1)котят 7
2)рыжих котят 5
3)зелоноглазых котят 3
4)котят рыжих и зеленоглазых 3
5)котят рыжих или зеленоглазых 3
6)рыжих и не зеленоглазых котят 3
7)не рыжих и не зеленоглазых 1
Ответ дал: Гость
1. по буквам
2. по слогам
3. по согласным
4. произношение на оборот
5. по 1ой букве в алфавите. н-р весна в-3-я буква, р-18-я в алфавите
Популярные вопросы