var
a: array of byte; <em>//char?</em>
b, d: integer;
begin
readln(b);
SetLength(a, length(IntToStr(b)));
for d := 0 to length(a) - 1 do
begin
a[d] := b mod 10;
b := b div 10;
end;
for d := 0 to (length(a) - 1) do
write(a[d], ' ');
<span>end. </span>
Насколько я понимаю, этот код "переворачивает" трехзначное число (цифры в десятичном представлении идут наоборот, то есть на входе 123, на выходе будет 321).
Пишу по строчкам программы чему равны переменные и что происходит:
допустим a = 271 (это строка со знаком вопроса - 1)
2) с = 1, a = 271 (в 'с' взяли младшую цифру остатком от деления на 10)
3) c = 1, a = 27 (целочисленное деление 271/10 переменной 'а')
4) с = 17, a=27 ('с' умножили на 10 и добавили младшую цифру от 'a')
5) a = 172 ('c' умножили на 10 и добавили старшую цифру от прошлого значения 'a', которую получили делением на 27/10)
Розгалужений алгоритм - алгоритм, який містить хоча б одна умова, в результаті перевірки якого ЕОМ забезпечує перехід на один з двох можливих кроків.
Многоуровневый список - это список,который основывается на отображении строк списка разными уровнями(от 1 до 9 уровня).То есть каждая из строк списка может включать подпункты различных уровней.Для обозначения в многоуровневом могут использоваться как маркеры,так и цифры .
Скорее всего, здесь надо отметить эти точки на координатной плоскости и соединить в данном порядке. Первая в скобке - координата х, вторая - у. Чертим координатную плоскость (прикреплю) и далее отмечаем эти точки. Потом соединяем их в порядке, написанном в задании. Получается лебедь.