это без использования файлов
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)Растровые изображения формируются в процессе сканирования многоцветных иллюстраций и фотографий, а также при использовании цифровых фото- и видеокамер.
Векторное изображение — цифровое изображение, которое формируется из геометрических примитивов (точек, линий, сплайны и многоугольники) по указанным формулам
3)Меняются количество пикселей, тоесть разрешающая при растровых изображениях, при векторных меняется масштаб рисунка.
Поделитесь своими знаниями, ответьте на вопрос:
Определить, сколько фамилий в списке состоят из 8 или 9 букв. (тема: строковый тип данных)
как по мне то лучше удобство и ничего лишнего, ведь список сохранять не говорили
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.