Это без использования файлов
var spisok:array [word] of string; {объявляем массив для хранения фамилий}
n,i,k:word; {n - количество фамилий,i - вс переменная, k - количество фамилий в списке равных 8 или 9 буквам}
begin
write('Введите количество фамилий в списке n = ');readln(n);
for i:=1 to n do begin
write('Введите фамилию ',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.
П.С. если вам потребуется,обработка конкретно через фаил напишите мне, так как в условии вы не указали точно через что!
А) N O T А В N∧O N∧O∧T N∧O∧T∧В А∧(N∧O∧T∧В)
0 0 0 0 0 0 0 0 0
0 0 0 0 1 0 0 0 0
0 0 0 1 0 0 0 0 0
0 0 0 1 1 0 0 0 0
0 0 1 0 0 0 0 0 0
0 0 1 0 1 0 0 0 0
0 0 1 1 0 0 0 0 0
0 0 1 1 1 0 0 0 0
0 1 0 0 0 0 0 0 0
0 1 0 0 1 0 0 0 0
0 1 0 1 0 0 0 0 0
0 1 0 1 1 0 0 0 0
0 1 1 0 0 0 0 0 0
0 1 1 0 1 0 0 0 0
0 1 1 1 0 0 0 0 0
0 1 1 1 1 0 0 0 0
1 0 0 0 0 0 0 0 0
1 0 0 0 1 0 0 0 0
1 0 0 1 0 0 0 0 0
1 0 0 1 1 0 0 0 0
1 0 1 0 0 0 0 0 0
1 0 1 0 1 0 0 0 0
1 0 1 1 0 0 0 0 0
1 0 1 1 1 0 0 0 0
1 1 0 0 0 1 0 0 0
1 1 0 0 1 1 0 0 0
1 1 0 1 0 1 0 0 0
1 1 0 1 1 1 0 0 0
1 1 1 0 0 1 1 0 0
1 1 1 0 1 1 1 1 0
1 1 1 1 0 1 1 0 0
1 1 1 1 1 1 1 1 1
Б) A v A∧A A∧A∧v A∧A∧v∧A
0 0 0 0 0
0 1 0 0 0
1 0 1 0 0
1 1 1 1 1
Объяснение:
# Python 3.x
import numpy
# Вводим массив случайных целых чисел диапазона от -1000 до 1000.
array=numpy.array((numpy.random.random(30) * 2 - 1) * 1000, numpy.int)
print(array)
# Считаем сумму среза массива по условию нечетности элементов.
sumary=numpy.sum(array[array % 2 != 0])
print("Sumary: ", sumary)
#
A=int(input("A: "))
indexs=numpy.where(array > A)[0]
result=[str(index) for index in indexs] # для метода join требуются строковые значения.
print(f"Here indexs, more that {A}: ", ', '.join(result))
#
k=int(input("k: "))
positives=array[array >= 0]
required=positives[positives % k == 0]
print(len(required), f" positive items divisible {k}")
Как по мне то лучше удобство и ничего лишнего, ведь список сохранять не говорили
var s:string;
k:integer;
Begin
repeat
write('Введите фамилию:');
readln(s);
if (length(s)=9) or (length(s)=8) then
k:=k+1
until s=''; {прекращаем чтенье если нам посылают пустую строку}
writeln(k);
End.