У магазині повели рекламну акцію одного з товарів. Зробіть висновок щодо ефективності цього заходу на основі даних про продаж товару протягом двох тижнів до проведення акції та двох тижнів після цього. До акції-60, 51, 61, 52, 56, 53, 68, 57, 60, 70, 72, 68, 70, 78.
Після акції - 58, 70, 64, 56, 60, 62, 70, 64, 75, 82, 65, 64, 76, 73.
Очень нужно... заранее
В (1) отсутствует ключевое слово array, во (2) троеточие в квадратных скобках, в (4) и (5) отсутсвуют ключевые слова.
ответ(3) var A: array [-8..10] of integer;
Задание 2Для (1) требуется две переменные - сумма всех чисел и их количество. Для (2) требуется одно число, которое будет сравниваться с вводимыми. Для (3) как раз требуется массив, поскольку над одними и теми же числами выполняется две операции (вывод отрицательных, а потом остальных)
ответ3
Задание 3Pascal элементы должны иметь один тип (неверно)Следует из первого (верно)Некоретный вопрос. Элементы расположены друг за другом. Массив - единый объект. Так что элементы не могут быть в хаотическом порядке разбросаны по памяти (верно)Следует из третьего (неверно)Неверноответ2, 3
Задание 4-2 -1 0 1 2 3 4 5 6 7 8, то есть 11.
ответ11
Задание 52 4 6 8 10 12 - каждый последующий элемент на два больше, чем предыдущий. Но важно заметить, что цикл начинается с k = 1, то есть в случае 2k + 2 у нас получится совсем неверный массив. Тогда остаётся один вариант - это 2k:
k = 1; 2k ⇒ 2
k = 2; 2k ⇒ 4
k = 3; 2k ⇒ 6
ответX[k] := 2*k
Вычисления
Начальная масса бактерий в теле учёного = 90/100*10 = 9кг
1 процент бактерий от их начальной массы = 9/10*1 = 0,09кг = 90г
Код программы с объяснением
program raf105;
var X,Y,BoMass,kap,B1Mass:real;
begin
write('Количество бактерий в капле: ');
readln(X);
write('Общая масса бактерий в капле (в граммах): ');
readln(Y);
B1Mass:= Y / X; //Масса одной бактерии
while BoMass < 90 do
begin
Y:= Y*2; //Масса бактерий в каждой капле
X:= X*2; //Кол-во бактерий в каждой капле
BoMass:= BoMass+Y; //Общая масса поселившихся бактерий
kap:= kap+1; //Кол-во капель
end;
writeln;
writeln('Чтобы в организме учёного стало на 1% больше бактерий нужно ',kap,' капель воды.');
writeln('При этом в нём поселится ',X,' бактерий');
end.
Программа написана на языке PascalABC.NET