Описание:
использовать Чертежник
алг
нач
сместиться на вектор(4,4)
опустить перо
сместиться на вектор(4,0)
сместиться на вектор(0,4)
сместиться на вектор(-4,0)
сместиться на вектор(0,-4)
сместиться на вектор(2,0)
сместиться на вектор(2,2)
сместиться на вектор(-2,2)
сместиться на вектор(-2,-2)
сместиться на вектор(2,-2)
сместиться на вектор(-1,1)
сместиться на вектор(2,0)
сместиться на вектор(0,2)
сместиться на вектор(-2,0)
сместиться на вектор(0,-2)
сместиться на вектор(1,0)
сместиться на вектор(1,1)
сместиться на вектор(-1,1)
сместиться на вектор(-1,-1)
сместиться на вектор(1,-1)
<span>кон
Рисунок увидите сами при выполнении программы</span>
Пусть первоначально число имело вид abc, После зачеркивания второй цифры оно превратилось в ac, а когда зачеркнутую b приписали справа, получилось acb=456, откуда понятно, что фактически поменяли местами цифры b и c. Поэтому программа должна получить число (456) и поменять в нем последнюю цифру с соседней, получив 465.
<u>MS DOS QBasic 1.0</u>
DIM r AS INTEGER
CLS
INPUT r
b = r MOD 10
a = INT(r / 100)
c = INT(r / 10) MOD 10
r = 100 * a + 10 * b + c
PRINT "x="; r
Дана последовательность, состоящая из 10 чисел [7, 3, 10, 9, 8, 4, 1, 6, 2, 5]. Вы умеете за один ход поменять в ней местами два
Waln
Const
a: array of integer = (7, 3, 10, 9, 8, 4, 1, 6, 2, 5);
begin
var n := 0;
var found := false;
repeat
found := false;
for var i := low(a) to High(a) - 1 do
if a[i] > a[i + 1] then begin
swap(a[i], a[i + 1]);
found := true;
n := n + 1;
end;
until not found;
writeln('Swaps = ', n);
end.
Ответ
Swaps = 30
Гиперссылка. Привязывается к объекту на слайде. Выделяете объект, жмете Ctrl+K, выбираете "Место в документе" и указываете нужный слайд.
Высказывание - это повествовательное предложение, в котором что-либо утверждается или отрицается. Поэтому вопросительные предложения не являются высказываниями.