Var i,n:integer;
begin
read(n);
for i := 1 to n do
writeln(i*i*i);
end.
Begin
var a:=ReadArrInteger('Введите 10 чисел:',10);
var m:=a.Where(x->x<a.Max).Max;
writeln('Второй максимум = ',m);
end.
Пример:
Введите 10 чисел:
5
44
80
1
8
100
1
90
2
6
Второй максимум = 90
Таблица 32 * 16 = 2⁹ символов. Тогда информационный объем одного символа 9 бит. 600 * 9 = 5.400 бит.
Тут 2 кролика а надо чтобы был кролик и крольчиха .
В ячейку B1 нужно ввести формулу =СУММ($A$1:A1) и эту формулу скопировать (распространить) на весь столбец B