N=2^i.i=5.Каждый символ кодируется 5 битами.7*40*50*5=70000(бит)=8750(байт)=8,5(Кбайт).
<em><u>С учетом замечания в комментарии: "</u></em><span><em><u>простите там НИЖЕ среднемесячной"</u></em></span><em><u /></em>
алг Температура
нач
цел n,i,k
вывод "Количество дней в месяце: "
ввод n
цел таб t[1:n]
вещ ТСред
ТСред:=0
вывод "Вводите ежедневную температуру",нс
нц для i от 1 до n
ввод t[i]; ТСред:=ТСред+t[i]
кц
k:=0; ТСред:=ТСред/n;
нц для i от 1 до n
если t[i]<ТСред то k:=k+1 все
кц
вывод "Количество дней с температурой больше среднемесячной: ",k,нс
кон
Var x, y, i: Real;
begin
i := 1;
write('x: ');
while (i <= 2.1) do
begin
write(i:4:2, ' ');
i := i + 0.1;
end;
i := 1;
writeln();
write('y: ');
while (i <= 2.1) do
begin
write(sin(i/2)/cos(i/2) + 2 * cos(i):4:2, ' ');
i := i + 0.1;
end;
writeln();
<span>end.
Вот так, только числа округляются, чтобы влазили:)</span>
Var
N,K,R: integer;
x,s: integer;
begin
read(N,K);
R := N;
x := 2; s := 4;
while s <= K do
begin
while K mod x = 0 do
begin
if N mod x = 0 then
N := N div x
else
R := R * x;
K := K div x;
end;
s := s + 2*x + 1;
x := x + 1;
end;
if N mod K <> 0 then
R := R * K;
writeln(R)
end.
$A$1 - абсолютный адрес и при копировании его значение не меняется.
Ячейка D2 находится в той же колонке, что и D1, но на строку ниже. Поэтому при копировании формулы в остальных адресах номер строки также увеличится на единицу и получим вместо $A$1*B1+C2 формулу $A$1*B2+C3
вычисление по которой даст значение 1*5+9 = 14.
Ответ: 14