Поступает последовательность целых положительных чисел, 0 - конец последовательности. записать каждое число последовательности в обратном порядке. например, 12345 - 54321. создать функцию для преобразования числа. в лазарусе,с edit1 и кнопкой(ками)

достоинства растровой графики:  

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

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

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

представление растровой графики является естественным для большинства устройств и техники ввода-вывода графики.

недостатки растровой графики:

большой размер файлов с простыми растровыми изображениями.

невозможно увеличение изображения в масштабе без потери качества.

вывод изображения при печати на плоттер является затруднительным.

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

сложность преобразования растрового изображения в векторное.

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

достоинства векторной графики:

масштабирование размеров без потери качества изображения.

масштабированные изображения не увеличиваются в весе ни на один байт.

во время масштабирования качество, резкость, четкость и цветовые оттенки изображений не .

вес изображения в векторном формате в разы меньше веса изображения в растровом формате.

при конвертации изображения из векторного формата в растровый, не возникает никакой сложности.

толщина линий при изменение масштаба (увеличение или уменьшение) объектов может не изменяться.

недостатки векторной графики:

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

после преобразование из растрового изображения в векторное, обычно качество векторного изображения не высокое.

я думаю она нужна.

Задание #1.

const
N = 10;

var
a : array[1..N] of integer;

begin

    randomize;
    for I : byte := 1 to N do
    begin 
       a[i] := random(1, 5);
       write(a[i],' ');
    end;

    for I : byte := 2 to N do
    if a[1] = a[i] then writeln(i);

end.

Задание #2.

const
K = 2;
N = 10;

var
a : array[1..N] of integer;

begin

    for I : byte := 1 to N do
    begin
       readln(a[i]);
       if a[i] mod k = 0 then write(a[i],' ');
    end;  

end.

Задание #3.

const
Z = 2;
N = 10;

var
a : array[1..N] of integer;
count : word;

begin

    count := 0; 

    for I : byte := 1 to N do
    begin
       readln(a[i]);
       if a[i] > Z then
       begin
          a[i] := Z; 
          Inc(count);
       end;
end;

      for I : byte := 1 to N do
      write(a[i],' '); 

      writeln;

      writeln(count);

 end.

Стоит на на всякий случай пояснить, что N, K, Z - константы, их можно легко поменять, так гораздо удобнее работать с программой, если нужно что-то поменять. Процедура Inc( ) - прибавляет единицу, это короче чем писать Count := Count + 1;  В первом задание в цикле, который ищет значение элементов массива, которые равны первому элементу массива, я начал со второго элемента. потому что очевидно, что первый элемент будет равен самому себе. Надеюсь, вам написанные мной программы, она не сложные, вам стоит внимательно их просмотреть и, вы сможете без труда их понять самостоятельно, если пожелаете, разумеется.