Бабушек ехало 2^n
Если 2^n-k>0, значит бабушки не поместились
Свободных мест 2^n-k
Pascal:
y := (5*sqr(x) - 2 * x + 1) / (3 * x - 2);
m := sqrt((3 * sqr(a) + b) / (2 * a - b)) - (2 * a + b) / (3 * a * b);
y := sqr(sin(x / 3)) + sqr(cos(abs(x - y)));
(x + y) / 2 <> sqr(x + 3);
p_1 := sqrt(abs(sqr(x) + 2 * x + 1) / (3 * x * y) + 2 * x * y) - (abs(x + 2 * y)) / 2 * x * sqr(y);
2. Удобнее принсети флеш-накопитель (1). Привод для считывания информации с CD-диска (2) может отсутствовать, оперативная память (3) не предназначена для постоянного хранения информации. Записать на жесткий диск (4) можно, но для переноса информации он не предназначен.
3. 4 Кб = 4 * 1024 = 4096 байт. Следовательно, подойдет документ в формате *.pdf = 4000 байт.
Var
a: array[1..10]of integer;
i, k, n: integer;
begin
Writeln('Исходный массив:');
Randomize;
for i := 1 to 10 do
begin
a[i] := Random(51) - 25;
Write(a[i], ' ');
end;
Writeln;
n := 0;
k := 0;
for i := 10 downto 1 do
if a[i] > 0 then
begin
k := k + 1;
if k = 2 then n := i;
end;
if k = 0 then
Writeln('В массиве нет положительных элементов!')
else
Writeln('Предпоследний положительный элемент: a[', n, '] = ', a[n]);
Readln;
end.