<u><u>начало
снять с саней шесты.
</u>собрать из шестов деревянную основу чума.
</u><u><u>снять с саней нюки.
</u>покрыть чум нюками.
</u><u><u>положить в чуме подстилки из веток ивы.</u>
</u><u><u>накрыть подстилки из веток ивы шкурами.
</u></u><u><u>снять с саней печку.
</u>поставить посередине чума печку
конец</u>
Все переведем в байты
А) 4098 БАЙТ
Б) 4 БАЙТА
В) 36 БИТ = 36/8 = 4,5 БаЙТА
Г) 5 БАЙТ
Д) 4 Кбайт = 4×1024 = 4096 БАЙТ
Е) 31 БИТ = 31/8 = 3.875 БАЙТ
А Д Г В Б Е
<em>условимся, что 1 символ = 1 байту (в кодировке Windows)</em>
тогда на 1 странице: 40*60*1 = 2400 байт информации
чтобы найти количество страниц: 465,6*1024*1024*1024/2400 = 208305913 страниц <em>(округлили в меньшую сторону, так как больше влезти не может)</em>
высотат стопки: 208305913/100 = 2083059 см = 20 км 830 м 59 см
В 3 пункте непонятно. "чему равна температура за первую половину сентября?"
Средняя температура? Половина сентября? в задаче и так прдставлен массив половины сентября - с 1 по 15 число.
uses crt;
const n=15;
var max,min,i,k:integer;
sr:real;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(23)-4;
write(a[i]:3);
end;
writeln;
max:=-4;
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln('a)',k,' day ',max,'temperature');
min:=19;
for i:=1 to n do
if a[i]<min then
begin
min:=a[i];
k:=i;
end;
writeln('a)',k,' day ',min,'temperature');
sr:=0;
for i:=1 to n do
sr:=a[i]+sr;
sr:=sr/n;
writeln('средняя температура за половину сентября ',sr);
k:=0;
for i:=1 to n do
if a[i]<sr then begin inc(k); writeln(i,'сентября'); end;
writeln(k);
end.