У меня получается так
7 лисят, 2 волчат и 5 медвежат
Program Natur;
Uses Crt;
Var a, Summa, n : integer;
Begin
Clrscr;
write('N=');
readln(N);
{Цикл с предусловием}
a:=2;
Summa:=0;
while a<=N do
begin Summa:= Summa + a; a := a + 1 end;
Writeln (' Результат первого суммирования:' , Summa) ;
{Цикл с постусловием}
а:=1;
Summa:=0;
repeat Summa:=Summa+ а; а:=а+1 until a>N;
Writeln
(' Результат второго суммирования:' , Summa) ;
{Цикл с параметром} Summa:=0;
for а := 2 to N do Summa : =Summa + a;
<span>Writeln (' Результат третьего суммирования:', Summa); End</span>
<span>К вашим схемам можно подобрать такие предложения на тему "Наши школьные дела":
</span>
<span>1)
</span>Петя легко решил задачу, Миша не понял
задание.
<span>2) </span>Учитель
попросил помыть доску, Маша вызвалась помочь.
<span>3) </span>Математика
нравится Коле и Диме.
<span>4) </span>Мой
одноклассник играет в шахматы.
#Python 3.6.0
a, b = int(input()), int(input())
while a!=b:
if (a//2>=b) and (a%2 == 0):
print ('Разделить на 2')
a//=2
else:
print ('Вычесть 1')
a-=1
Если я правильно понял условие (а оно не совсем корректное)...
Байт - минимальная адресуемая память. 4МБайта = 4 * 1024 * 1024 = 4194304 байта. log2(4194304) = 22 двоичных разряда.