Ответ:
29
Объяснение:
При копировании формулы в ячейку D3 она примет вид =2*B$1+$B3/2.
Адреса ячеек превратились в другие, т.к. если перед буквой колонки (A, B, C...) или цифрой строки (1, 2, 3...) не стоит знак доллара ($), то, например, при перемещении на две колонны вправо и на две строки вниз адрес B3 превратится в D5 (B + 2 колонны = D, 3 + 2 строки = 5). Если стоит знак доллара перед буквой ($A1), то буква колонны не меняется при копировании формулы, если пред цифрой (A$1), то цифра не меняется при копировании формулы, если и перед цифрой, и перед буквой ($A$1), то адрес ячейки не будет меняться вообще.
Пример:
- при перемещении на две колонны вправо и на две строки вниз адрес B$3 превратится в D$3 (B + 2 колонны = D, 3 не меняется)
- при перемещении на две колонны вправо и на две строки вниз адрес $B3 превратится в $B5 (B не меняется, 3 + 2 строки = 5)
- при перемещении на две колонны вправо и на две строки вниз адрес $B$3 не изменится
<span>В приложении PowerPoint предлагается множество шаблонов, таких как фотоальбомы, календари и расписания, а также различные ресурсы для презентаций. Используя шаблоны, можно легко создать прекрасные презентации.</span>
Действия:вырасти,согреть,покрасить,проехать
Это реализовано с помощью цикла for:
Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
Это реализовано с помощью цикла while:
Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
i:=i+1;
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.
Это реализовано с помощью цикла repeat:
Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat
Begin
i:=i+1;
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
until i=2;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.