Var
st:real;
i,n:integer;
t:array[1..31]of integer;
begin
writeln('Температура в январе:');
for i:=1 to 31 do
begin t[i]:=random(-10,5);
write(t[i],' ');
st:=st+t[i];
if t[i]<0 then n:=n+1
end;
st:=st/31;
writeln;
writeln('Число дней с отр.температурой: ',n);
writeln('Средняя температура: ',st:1:1)
<span>end.</span>
Ответ:
10001010111
Объяснение:
[Log2(1111)]=<u>10</u>
2^10=1024
1111-1024=87
[Log2(87)]=<u>6</u>
2^6=64
87-64=23
[Log2(23)]=<u>4</u>
2^4=16
23-16=7
[Log2(7)]=<u>2</u>
2^2=4
7-4=3
[Log2(3)]=<u>1</u>
2^1=2
3-2=1
[Log2(1)]=<u>0</u>
Искомая двоичная запись числа состоит из 11 разрядов (от 0 до 10). Нумерация разрядов от 0 до 10 справа налево.
В выделенных номерах разрядов стоят единицы, в остальных нули.
Запишем в верхней строчке номера разрядов, в нижней значения:
10 9 8 7 6 5 4 3 2 1 0
1 0 0 0 1 0 1 0 1 1 1
Индекс элемента массива - 6
<span>MSAccess - специальное назначение
HTML - системы программирования
"консультант Плюс" - не знаю такой программы
sound.drv - судя по названию это драйвер
basic - </span><span><span>системы программирования
</span>c+, Фортан ,паскаль </span><span><span>- системы программирования
</span>Linux - операционная система
FoxPro - наверно чтото профессиональное
MSWord, MSExcel - специального назначения
macromediaFlash </span>- професиональное
Var x, y:real;
begin
Readln (x);
If x < 0 then y:=x*x-3*x
else y:=5*x-x*x;
Writeln (y);
end.