это без использования файлов
var spisok: array [word] of string; {объявляем массив для хранения фамилий} n,i,k: word; {n - количество фамилий,i - переменная, k - количество фамилий в списке равных 8 или 9 буквам}
beginwrite('введите количество фамилий в списке n = '); readln(n); for i: =1 to n do beginwrite('введите фамилию ',i,' : '); readln(spisok[i]); if (length(spisok[i])=9) or (length(spisok[i])=8) then inc(k); {inc(k) - это тоже самое ,что k: =k+1; }end; writeln('количество фамилий в списке состоящих из 8 или 9 букв = ',k); end.
п.с. если вам потребуется,обработка конкретно через фаил напишите мне, так как в условии вы не указали точно через что!
мальчик высаживает второго мальчика на втором берегу, сам отправляется на первый. там, он выходит из лодки и сажает вместо себя солдата. солдат перемещается на второй берег и выходит. "за руль" садится мальчик и плывет к 1ому берегу, берет 2ого пацана и они оба "едут" на второй берег. там один мальчик выходит. 2ой отправляется на первый берег меняется местами со вторым солдатом и солдат плывет на второй берег. там второй пацан садится в лодку и плывет на первый берег за другом. результат: бойцы переправились, а мальчики снова катаются.
удачи..
Поделитесь своими знаниями, ответьте на вопрос: