Здравствуй!
Объяснение:
Есть много компаний, которые предоставляют скидки, чтобы было выгодно купить лицензию. Покупаешь одну лицензию у нее есть срок после продлевается со скидкой, или на оборот на праздники часто делают выгодные предложении(скидки или акции).
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.