Когда мы копируем рисунок в буфер, то он определенного размера. Создадим второго слона. Для этого надо выполнить все 4 команды: 1,2,3,4. Второй слон стал на 80% меньше первого. Создадим третьего слона. Если мы сейчас снова вставим слона из буфера (команда 3), то вставится первый слон, и команду 4 придется делать 2 раза, чтобы он стал на 80% меньше, чем второй слон. Поэтому для третьего слона нужно выделить второго и опять проделать все 4 команды: 1,2,3,4. Чтобы получить еще 6 слонов, нужно эти команды повторить 6 раз. ответ: В) повторить (1,2,3,4; 6)
program a1; var a: array [1..15] of integer; a2: array [1..15] of integer; Mas1:integer; Mas2:integer; Raz:integer; i:integer; begin //Подключаем датчик случайных чисел randomize;
//Цикл заполняющий массивы и нахождение сумм элементов масива for i:=1 to 15 do begin a[i]:=random(100); a2[i]:=sqr(a[i])-a[i]; Mas1:=Mas1+a[i]; Mas2:=Mas2+a2[i]; end;
//находим разницу массивов raz:=mas1-mas2;
//Выводим на экран 1ый массив write('Первый массив: '); for i:=1 to 15 do begin write(a[i],'|') end; writeln('');
//Выводим на экран 2ой массив write('Второй массив: '); for i:=1 to 15 do begin write(a2[i],'|') end; writeln('');
//Выводим на экран разность массивов write('Разность сумм элементов массива:', raz); writeln(''); end.
Создадим второго слона. Для этого надо выполнить все 4 команды:
1,2,3,4.
Второй слон стал на 80% меньше первого.
Создадим третьего слона.
Если мы сейчас снова вставим слона из буфера (команда 3), то вставится первый слон, и команду 4 придется делать 2 раза, чтобы он стал на 80% меньше, чем второй слон.
Поэтому для третьего слона нужно выделить второго и опять проделать все 4 команды: 1,2,3,4.
Чтобы получить еще 6 слонов, нужно эти команды повторить 6 раз.
ответ: В) повторить (1,2,3,4; 6)
program a1;
var
a: array [1..15] of integer;
a2: array [1..15] of integer;
Mas1:integer;
Mas2:integer;
Raz:integer;
i:integer;
begin
//Подключаем датчик случайных чисел
randomize;
//Цикл заполняющий массивы и нахождение сумм элементов масива
for i:=1 to 15 do
begin
a[i]:=random(100);
a2[i]:=sqr(a[i])-a[i];
Mas1:=Mas1+a[i];
Mas2:=Mas2+a2[i];
end;
//находим разницу массивов
raz:=mas1-mas2;
//Выводим на экран 1ый массив
write('Первый массив: ');
for i:=1 to 15 do
begin
write(a[i],'|')
end;
writeln('');
//Выводим на экран 2ой массив
write('Второй массив: ');
for i:=1 to 15 do
begin
write(a2[i],'|')
end;
writeln('');
//Выводим на экран разность массивов
write('Разность сумм элементов массива:', raz);
writeln('');
end.