<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
Ответ Г
1 км=1024м
1м=64см
1024м=65536см
1км=65536см
65536см=128сек
Найдем скорость, 65536/128=512см/с
100м=10000см
Теперь находим за сколько он пробежит 100 метров:
10000/512=19.5 и округляжем до целого числа получаем 20)
15 вершин, полный граф, (т.е. есть всевозможные связи)
связей = n*(n-1)/2 = 15*14/2 = 105
Если связи убирать случайно
Связный граф - вершины должны быть соединены хоть раз. Для 15 вершин должно быть 15-1=14 связей
Несвязным граф точно будет если связей 13 и меньше
105 - 13 = 92 связи нужно убрать
Если связи убирать целенаправленно
То тогда нужно отсоеденить одну вершину. Всего вершин 15, и каждая связана с 14 остальными вершинами. Если мы уберем эти 14 связей, то 15 вершинный граф перестанет быть связным
Ответ 14
program asd;
uses crt;
var
a,b,c:integer;
begin
writeln('Введите 3 числа');
readln(a); readln(b); readln(c);
if (a<b) and (a<c) then
begin
writeln('Минимальное ', a);
end
else
begin
if (b<c) then writeln('Минимальное ', b)
else writeln('Минимальное ', c);
end;
end.
Карп
кара
кора
коза
...
паук
парк
пара
фара
фура
мура
муха
...
лужа
ложа
кожа
кора
гора
горе
море