Попробуем порассуждать:
Сова сказала, что это пятачок, значит это не она.
Сову спрашивал кролик - значит тоже не он.
И остается пятачок, значит это он подарил подарок.
Var A:longint;
k:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
k:=0;
While A<>0 do
Begin
if (A mod 10) mod 2 <> 0 then k:=1;
A:=A div 10
End;
if k=0 then WriteLn('Да')
else WriteLn('Нет')
End.
1 мб - 1024 кб
1кб - 1024 байт
16 мб 1024*16=16384 кб
16384*1024=16777216 байт
1 символ весит 1 байт 16777216/1=16777216 символов
Var
n,k:integer;
Begin
Write('n = ');
ReadLn(n);
Write('k = ');
ReadLn(k);
if n > 9 then n:=(n+k*100)*10+k
else n:=(n+k*10)*10+k;
WriteLn(n)
End.
15 вершин, полный граф, (т.е. есть всевозможные связи)
связей = n*(n-1)/2 = 15*14/2 = 105
Если связи убирать случайно
Связный граф - вершины должны быть соединены хоть раз. Для 15 вершин должно быть 15-1=14 связей
Несвязным граф точно будет если связей 13 и меньше
105 - 13 = 92 связи нужно убрать
Если связи убирать целенаправленно
То тогда нужно отсоеденить одну вершину. Всего вершин 15, и каждая связана с 14 остальными вершинами. Если мы уберем эти 14 связей, то 15 вершинный граф перестанет быть связным
Ответ 14