Каждое одноклеточное животное инфузория-туфелька размножается делением на 2 части. Сколько инфузорий было первоначально, если после шестикратного деления стало 320? (Надо решить и в паскаль запихнуть) Нжно сделать программу в паскале

5 инфузорий.

Объяснение:

var x, y:integer;

begin

x:= 320;

y:= 64;    //2 в шестой степени, так как делений было 6.

x:= x/y;

readln('Изначально было' , x , 'инфузорий.');

end.

Const n=15;
Var a:array[1..n]  of integer;
i,indx,k,tr,indxx:integer;
Begin 
Randomize; 
 For i:=1 to n do  begin
  A[i]:=Random(40)-20; 
 Write(a[i],' '); 
   end; 
       Writeln; 
   write('0 имеет номер: '); 
     For i:=1 to n do   
Begin
 If A[i]=0 thenwrite(i);
 end;
Writeln;
indx:=0; 
 For i:=1 to n do 
  Begin
   If a[i] mod 2=0 then 
  begin 
  indx += 1; 
 a[indx]:=a[i]; 
  end; 
 end; 
    Write('Индекс четных элементов: '); 
 For i:=1 to indx do 
 write(a[i],' ');   
   For i:=1 to n do
    Begin 
   If A[i]<0 then
      Begin   
  inc(k);      
 end;      
   end;   
 Writeln;
 Writeln('Кoличество отрицательных элементов: ',k);
 For i:=1 to n do
  Begin 
 If A[i] mod 3=0 then 
 tr:=a[i];
  end; 
 Writeln('Кратное трем ',tr); 
   indxx:=0; 
 writeln('Индексы кратны 3: '); 
  For i:=1 to n do 
  Begin 
  If a[i] mod 3=0 then 
  begin   
   indxx += 1; 
 a[indxx]:=a[i];
   write(' ',a[i]); 
    end;   
 end;    
  end.  

розгалуження виконується, коли виконання попереднього розгалуження ще не закінчено.

Наприклад, вам потрібно встановити будильник на завтра. Якщо

завтра робочий день, то ви повинні встати о 7-й годині ранку, щоб іти

до школи. Якщо завтра субота, то ви повинні встати о 8-й годині ранку, щоб їхати на заняття гуртка. Якщо завтра неділя, то ви встаєте о

9-й годині ранку.

У наведеному на малюнку алгоритмі друге розгалуження з

умовою Завтра субота? міститься всередині першого розгалуження з

умовою Завтра робочий день?.

Такий фрагмент алгоритму називають вкладеним розгалуженням.

Вкладені розгалуження - це фрагмент алгоритму, у якому одне

розгалуження міститься всередині іншого розгалуження.

Розглянемо виконання наведеного на малюнку 3.26 фрагмента алгоритму. Спочатку перевіряється умова Завтра робочий день?. Якщо

результат перевірки цієї умови Так, то виконується команда Установити будильник на 7-му годину ранку і на цьому виконання всього

цього фрагмента алгоритму закінчується. Якщо результат перевірки

умови Завтра робочий день? - Ні, то перевіряється умова Завтра субота?. Якщо результат перевірки цієї умови Так, то виконується команда

Установити будильник на 8-му годину ранку і на цьому виконання всього цього фрагмента алгоритму закінчується, а якщо результат перевірки

цієї умови Ні, то виконується команда Установити будильник на 9-ту

годину ранку і виконання всього цього фрагмента алгоритму закінчується.

У наведеному на малюнку

фрагменті алгоритму внутрішнє

розгалуження виконується, якщо результат перевірки умови зовнішнього розгалуження Ні.

Объяснение:

рисунок 3.26 (во вложении)