Створіть програму, яка розраховує оптимальну вагу користувача, порі-
внює її з реальною і видає рекомендацію про необхідність схуднути чи
погладшат на необхідну кількість кілограм.​

Вычисления

Начальная масса бактерий в теле учёного = 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

Задание 1

В (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

Задание 5

2 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