Program Temperatura;
Var d, k, T: integer; f: byte; a: array [1..7] of integer;
Begin f := 0;k := 0;
Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;
for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;
if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.
1)60×3=180 сек
2)512000×180=92 160 000(бит)
(1 байт = 8 бит
1 Кбайт = 1024 байт,
1 Мбайт = 1024 Кбайт,)
3)92 160 000/8=11 520 000(байт)
4)11 520 000/1024=11250(Кбайт)
5)11250/1024=10,96(Мбайт)
Ответ 10,96 мегабайт
Черный ящик:
известно что есть на входе и на выходе , а что внутри этого ящика неизвестно.
нуууу например мясорубка, может калькулятор.
<span>Находим количество символов в 2 мегабайтах при 16 битной кодировке. (2*(2^10)*(2^10)*(2^3)/16=524288=2^19 символов.</span>
На каждый вид мышки можно выбрать 12 видов клавиатур => 12*10=120 разных комбинаций "мышка-клавиатура"