Перечислите, какие действия нужно произвести, чтобы дублировать часть изображения в paint?

1) Нужно нажать левой кнопкой мыши на стрелку под кнопкой "Выделить"

2) Выбрать прямоугольную или произвольную область.

Если выбрана прямоугольная область:

1) Нажать левой кнопкой мыши в том месте, где должен быть какой-либо угол прямоугольной области;

2) Не отпуская кнопку мыши, перевести мышь в то место, где должен быть противоположный угол;

3) Отпустить кнопку мыши.

Если выбрана произвольная область:

1) Нажать левой кнопкой мыши в том месте, где должно быть какое-либо  место на границе произвольной области;

2) Не отпуская кнопку мыши, провести ей по границе произвольной области и замкнуть эту границу;

3) Отпустить кнопку мыши.

3) Нажать правой кнопкой мыши по выделенной области;

4) Выбрать "Копировать";

5) Нажать на любое место, кроме выделенной области правой кнопкой мыши;

6) Выбрать "Вставить".

Для быстрого перемещения курсора в пределах экрана можно использовать следующие клавиши и сочетания клавиш:

На один символ влево  СТРЕЛКА ВЛЕВО
На один символ вправо  СТРЕЛКА ВПРАВО
На одно слово влево  CTRL+СТРЕЛКА ВЛЕВО
На одно слово вправо  CTRL+СТРЕЛКА ВПРАВО
На один абзац вверх  CTRL+СТРЕЛКА ВВЕРХ
На один абзац вниз  CTRL+СТРЕЛКА ВНИЗ
К предыдущей строке  СТРЕЛКА ВВЕРХ
К следующей строке  СТРЕЛКА ВНИЗ
В конец строки  END
В начало строки  HOME
Если текст большой, то на экране будет видна только его часть, а весь он будет храниться в памяти компьютера. Существует режим прокрутки, позволяющий быстро вывести на экран части текста, находящиеся за его пределами. Это можно сделать с полос прокрутки, расположенных справа и внизу окна документа

Var
A,B,m1,m2:integer;
Begin
Write('A = ');Read(A);
Write('B = ');Read(B);
A:=abs(A);
B:=abs(B);
m1:=A mod 10;
A:=A div 10;
if A mod 10 > m1 then m1:=A mod 10;
A:= A div 10;
if A mod 10 > m1 then m1:=A mod 10;

m2:=B mod 10;
B:=B div 10;
if B mod 10 > m2 then m2:=B mod 10;
A:= B div 10;
if B mod 10 > m2 then m2:=B mod 10;

WriteLn('Максимальная цифра в A = ',m1);
WriteLn('Максимальная цифра в B = ',m2);
End.

Var
i:integer;
Begin
Write('Кратные 4: ');
For i:= 1 to 1000 do
   if i mod 4 = 0 then Write(i,' ');
WriteLn;

Write('Кратные 8: ');
For i:= 1 to 1000 do
   if i mod 8 = 0 then Write(i,' ');
WriteLn;

Write('Кратные 2: ');
For i:= 1 to 1000 do
   if i mod 2 = 0 then Write(i,' ');
WriteLn;

Write('Кратные 4,8,2: ');
For i:= 1 to 1000 do
   if i mod 8 = 0 then Write(i,' ');
WriteLn;

End.