Тренер формує команду для гри у баскетбол з учнів, які на
зріст не нижчі ніж 180 см. Розробіть програму визначення,
Чи потрапить у цю команду учень зростом h cм?​

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.

ответ:Ну тут легко

Например можешь написать про Амёбу или про Бактерии

Объяснение:

1) Амёбы — род микроскопических одноклеточных простейших из семейства Amoebidae. У амёб неправильная, всё время меняющаяся форма из-за временных цитоплазматических выростов, называемых ложноножками или псевдоподиями, которые служат для передвижения и захвата пищи.

2)Протоплазма  — цитоплазма и ядро клетки. Иногда протоплазмой неправильно называют только цитоплазму. Живая протоплазма реагировать и отвечать на раздражение.  Термин «протоплазма» ввёл в 1839 году Ян Пуркине. До середины XIX века считалось, что это второстепенная часть клетки по сравнению с оболочкой. В XIX — начале XX века понятие протоплазмы использовалось широко, а в современной научной литературе почти не встречается.

3) Инфузо́рия-туфелька — вид инфузорий, одноклеточных организмов из группы альвеолят. Иногда инфузориями-туфельками называют и другие виды рода Paramecium. Встречаются в пресных водах. Своё название получила за постоянную форму тела, напоминающую подошву туфли.