1. b = 10
2. Пусть n - количество амеб количество часов, x - нужное количество амеб. Изначально n = 1, а t = 0. Будем умножать n на 2, а к t прибавлять 3 часа до тех пор, пока n ≤ x. В t будет необходимое время на x амеб.
3.
нц
пока снизу свободно
вниз
кц
нц
пока не снизу свободно
закрасить
вправо
кц
нц
пока снизу свободно
вправо
кц
нц
пока не снизу свободно
закрасить
вправо
кц
вниз
влево
нц
пока не сверху свободно
закрасить
влево
кц
нц
пока сверху свободно
влево
кц
нц
пока не сверху свободно
закрасить
влево
кц
Объяснение:
1. Рассмотрим последовательность номеров команд 11112.
4 единицы говорят о том, что к начальному числу 6 прибавили 4 раза b, т.е. имеем: 6 + 4b. После одна команда 2: (6 + 4b)*2, и получили 92. Решаем:
(6+4b)*2 = 92
6+4b = 46
4b = 40
b = 10
program Project1;
const
n = 15;
var
c: array[1..n] of real = (0, 1.25, -371, 0.5, -0.1, 1.2, -5, -172.3, 19783, -2.7, 43.51, 0, -0.02, 14.5, 123.7);
// Переменная для хранения массива.
i: integer; // Вс переменная для организации цикла.
minelem: real; // Переменная для хранения значения элемента с минимальным значением.
indmin: integer; // Переменная для хранения значения индекса минимального элемента.
begin
writeln('Исходный массив:');
for i:= 1 to n do // Вывод массива в консоль.
begin
write(c[i]:9:2);
if i mod 8 = 0 then
writeln;
end;
writeln;
minelem:= c[1];
indmin:= 1;
for i:= 2 to n do
if c[i] < minelem then // Условие для нахождения элемента с минимальным значением.
begin
minelem:= c[i];
indmin:= i; // Индекс элемента с минимальным значением.
end;
writeln('Минимальный элемент массива находится на ',indmin,' месте и равен ',minelem:0:2);
Readln;
end.
Объяснение:
В принципе я указал комментарии к некоторым действиям, так что должно быть понятно(комментарии потом лучше стереть). В отчет можешь сделать скриншот уже с результатом работы программы (мы так обычно делаем). Если остались вопросы пиши в комментарии.