Const
N = 30;
Var
T:array[1..N] of integer;
i,k:integer;
Begin
Write('Температура в течение месяца:');
k:=0;
For i:= 1 to N do
Begin
T[i]:=random(20)-15;
Write(' ',T[i]);
if T[i] < 0 then k:=k+1;
End;
WriteLn;
WriteLn('Количество дней, когда температура опускалась ниже нуля: ',k);
End.
Пример работы программы:
Температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5
Количество дней, когда температура опускалась ниже нуля: 23
Не будем лишний раз ломать себе голову, пусть компьютер своей прямой обязанностью занимается:
javascript:
var число = 3n ** 300n + 9n ** 200n + 27n ** 100n - 2n * 3n ** 150n + 13n, единиц = 0;
while (число > 0n) { let разряд = число % 3n; if (разряд == 1n) единиц++; число /= 3n; }
alert(единиц);
Итого: 6.
1024*768*(ln(16777216)/ln(2)) бит = 18874368 бит
18874368 / 8 / 1024 = 2304 кбайт