Дан текстовый файл литерных виличин. Для каждого из слов последней строки текста указать, сколько раз оно встречается в том тексте. ответ записать в новый файл

Здравствуй!

Объяснение:

Есть много компаний, которые предоставляют скидки, чтобы было выгодно купить лицензию. Покупаешь одну лицензию у нее есть срок после продлевается со скидкой, или на оборот на праздники часто делают выгодные предложении(скидки или акции).

Advanced video converter сжимает размер видео без потери качества, он условно бесплатные, пробный период и скорость сжатия видео может быть медленнее чем платная.

Программа для видео монтажа, есть шаблоны для видео, рамер и формат, условно бесплатно не все шаблоны(красочный фон, видео открыткы) не все есть в полном обьеме.

ответ:

Подключаем библиотеку...

uses graphABC;

Объявляем константы... x - сторона квадрата, c - кол. линий.

const  x = 200;   c = 10;

Объявляем начало работы программы:

begin  

Рисуем прямоугольник с противоположными вершинами (0;0) и (200;200):

 rectangle(0, 0, x, x);

Создаём цикл от 0 до с-1 (но по сути он пробегает с раз; с-1 для того чтобы потом -1 не лепить со скобками):

for var i := 0 to c - 1 do

Рисуем линию от точки (i * x div c; x - 1) до (x -1; i * x div c):

     line(i * x div c, x - 1, x - 1, i * x div c);

...("x - 1" из-за того, что pen.width = 1)

Объявляем конец работы программы:

end.