836 это примерно 2^10. Значит один спортсмен несет информацию равную 10 битам. 280 спортсменов несут 280*10 = 2800 бит информации.
Var s,x,sum:real; k:integer;
begin
write('s = ');
readln(s);
write('x = ');
readln(x);
sum:=s; k:=0;
while sum<=2*s do
begin
k:=k+1;
sum:=sum+sum*x/100;
end;
writeln('k = ',k);
end.
Пример:
s = 2000
x = 10
k = 8
var
m: Integer;
begin
Write('Введите m: '); Readln( m );
if sqr(m) > 2*m then m := m*10 else m := m div 2;
Write( m );
Readln;
end.
<span>const
</span><span><span> n = </span>10; //кол-во элементов в массиве</span>
<h2>Задание 1</h2>
В (1) отсутствует ключевое слово array, во (2) троеточие в квадратных скобках, в (4) и (5) отсутсвуют ключевые слова.
<h3>Ответ</h3>
(3) var A: array [-8..10] of integer;
<h2>Задание 2</h2>
Для (1) требуется две переменные - сумма всех чисел и их количество. Для (2) требуется одно число, которое будет сравниваться с вводимыми. Для (3) как раз требуется массив, поскольку над одними и теми же числами выполняется две операции (вывод отрицательных, а потом остальных)
<h3>Ответ</h3>
3
<h2>Задание 3</h2>
- Pascal элементы должны иметь один тип (неверно)
- Следует из первого (верно)
- Некоретный вопрос. Элементы расположены друг за другом. Массив - единый объект. Так что элементы не могут быть в хаотическом порядке разбросаны по памяти (верно)
- Следует из третьего (неверно)
- Неверно
<h3>Ответ</h3>
2, 3
<h2>Задание 4</h2>
-2 -1 0 1 2 3 4 5 6 7 8, то есть 11.
<h3>Ответ</h3>
11
<h2>Задание 5</h2>
2 4 6 8 10 12 - каждый последующий элемент на два больше, чем предыдущий. Но важно заметить, что цикл начинается с k = 1, то есть в случае 2k + 2 у нас получится совсем неверный массив. Тогда остаётся один вариант - это 2k:
k = 1; 2k ⇒ 2
k = 2; 2k ⇒ 4
k = 3; 2k ⇒ 6
<h2>Ответ</h2>
X[k] := 2*k