Писал на скорую руку, так что, программа немного кривая, доработай чуть-чуть:
var a, b, c, i, n, g:integer;
mass: array[1..100000] of integer;
begin
readln(n);
writeln('Введите числа ');
for i:=1 to n do
begin
read(mass[i]);
if mass[i]>100 then b:=b+1;
if mass[i]>100 then g:=mass[i];
write(g, ' ');
end;
writeln('Всего чисел больших ста ', b);
end.
15 вершин, полный граф, (т.е. есть всевозможные связи)
связей = n*(n-1)/2 = 15*14/2 = 105
Если связи убирать случайно
Связный граф - вершины должны быть соединены хоть раз. Для 15 вершин должно быть 15-1=14 связей
Несвязным граф точно будет если связей 13 и меньше
105 - 13 = 92 связи нужно убрать
Если связи убирать целенаправленно
То тогда нужно отсоеденить одну вершину. Всего вершин 15, и каждая связана с 14 остальными вершинами. Если мы уберем эти 14 связей, то 15 вершинный граф перестанет быть связным
Ответ 14
Ответ:
1) 4 2) 32 3) нет
Объяснение:
1) Переведем 2048 байт в биты
размер изображения
Получаем, что на количество цветов 4 бита, что соответствует 16 цветам
2) 128*128*16= бит
Чтобы получить ответ в Кб, нужно разделить на
Получаем
3) Для 16 цветов нужно 4 бита памяти
Нам нужно памяти 512*512*4= бит
переводим в Кб, т.е. делим на и получаем = 128Кб, нам не хватит исходной видеопамяти
Условие здесь должно быть i >= 0
1 шаг: 3 >= 0 ⇒ true, i=2
2 шаг: 2 >= 0 ⇒ true, i=1
3 шаг: 1 >= 0 ⇒ true, i=0
4 шаг: 0 >= 0 ⇒ true, i=-1
5 шаг: -1 >= 0 ⇒ false
//PascalABC.NET
//Версия 3.4.2
begin
range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;
end.