2^1024= 100....000 2(cc) - 1 и 1024 нуля
2^1000 = 100....000 (2cc) - 1 и 1000 нулей
2^1000 -1 = 111...111 (2cc) - 1000 штук единиц
2^1024 + (2^1000 - 1) = 100...000 +111....111 (2cc) =100...111...111 (2cc) -
- всего 1024 разряда (цифр 1 и 0)
1024 (общее количество цифр) - 1001 (единиц) =23 (нуля) <---ответ
Очень просто! Рисуешь ромбик ветвления, в нем пишешь вопрос:
x < 5 ?
На ветке ДА рисуешь прямоугольник, в нем пишешь формулу:
Z = x^3 + 6*x^2 + 1/(Abs(x) + 1)
На ветке НЕТ рисуешь второй ромбик, в нем вопрос:
x > 10 ?
На ветке ДА
рисуешь прямоугольник, в нем пишешь формулу:
Z = (8*x^2 + 4)/(7*x)
На ветке НЕТ
рисуешь прямоугольник, в нем пишешь формулу:
Z = Log(Abs(x))
Из всех трех прямоугольников выходят стрелки к параллелограмму
Вывод Z
<span> <span>var
n,k:integer;
a:real;
i:byte;
begin
for i:=1 to 7 do
begin
Write('Температура на ',i,'день ');
read(n);
k:=k+n;
end;
a:=k/7;
writeln('Средняя температура=',a);
readln;
readln;
end.</span></span>
Var a,b,x,y,z:integer;
begin
readln(a,b,x,y,z);
if ((a>=x)and(b>=y))
or ((a>=y)and(b>=x))
or ((a>=x)and(b>=z))
or ((a>=z)and(b>=x))
or ((a>=y)and(b>=z))
or ((a>=z)and(b>=y))
<span>then write('Пройдёт')
</span><span>else write('Не пройдёт');</span>end.