<em>MS DOS QBasic 1.0</em>
RANDOMIZE TIMER
CONST n = 9
DIM a(1 TO n) AS INTEGER
CLS
FOR i = 1 TO n
a(i) = INT(99 * RND)
PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF a(i) < a(j) THEN
t = a(i)
a(i) = a(j)
a(j) = t
END IF
NEXT j
NEXT i
FOR i = 1 TO n
PRINT a(i);
NEXT i
<u>Пример</u>
85 21 7 21 29 45 98 70 23
98 85 70 45 29 23 21 21 7
Ответ:
program numab;
var
a, b, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (a, b);
for i := a to b do
if (i mod 2 <> 0) and (i mod 7 = 0) then
Write (i, ' ');
ReadLn;
end.
Ответ:
Модели́рование — исследование объектов познания на их моделях; построение и изучение моделей реально существующих объектов, процессов или явлений с целью получения объяснений этих явлений, а также для предсказания явлений, интересующих исследователя.
Объяснение:
вот правильний ответ
Цепочка 2) 4123 не удовлетворяет правилу "Последней цифрой не может быть цифра 3.<span>"
Цепочка 3) 1241 не удовлетворяет правилу "После четной цифры в цепочке не может идти снова четная, а после нечетной – нечетная." - здесь за 2 идет 4
</span>Цепочка 4) 3452 не удовлетворяет правилу "На первом месте стоит одна из бусин 1, 4 или 5."
Для цепочки 1) 4325 выполняются все правила.
999/2 = 498 +1
499/2 = 249 + 1
249/2 = 124 +1
124/2 = 62 + 0
62/2 = 31+ 0
31/2 = 15+1
15/2 = 7+1
7/2 = 3 + 1
3/2 = 1 + 1
999 = <span>1111100111
</span><span>10985 = </span>10101011101001